home *** CD-ROM | disk | FTP | other *** search
/ Mac Easy 2010 May / Mac Life Ubuntu.iso / casper / filesystem.squashfs / usr / lib / perl5 / Gtk2 / Install / gtk2perl-autogen.h < prev    next >
Encoding:
C/C++ Source or Header  |  2008-11-28  |  203.0 KB  |  3,612 lines
  1. /* This file is automatically generated. Any changes made here will be lost. */
  2.  
  3. /* This header defines simple perlapi-ish macros for creating SV wrappers
  4.  * and extracting the GPerl value from SV wrappers.  These macros are used
  5.  * by the autogenerated typemaps, and are defined here so that you can use
  6.  * the same logic anywhere in your code (e.g., if you handle the argument
  7.  * stack by hand instead of using the typemap). */
  8.  
  9. #ifdef ATK_TYPE_OBJECT
  10.   /* GObject derivative AtkObject */
  11. # define SvAtkObject(sv)    ((AtkObject*)gperl_get_object_check (sv, ATK_TYPE_OBJECT))
  12. # define newSVAtkObject(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  13.   typedef AtkObject AtkObject_ornull;
  14. # define SvAtkObject_ornull(sv)    (gperl_sv_is_defined (sv) ? SvAtkObject(sv) : NULL)
  15. # define newSVAtkObject_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  16. typedef AtkObject AtkObject_noinc;
  17. #define newSVAtkObject_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  18. typedef AtkObject AtkObject_noinc_ornull;
  19. #define newSVAtkObject_noinc_ornull(val)    ((val) ? newSVAtkObject_noinc(val) : &PL_sv_undef)
  20. #endif /* ATK_TYPE_OBJECT */
  21.  
  22. #ifdef GDK_TYPE_AXIS_USE
  23.   /* GEnum GdkAxisUse */
  24. # define SvGdkAxisUse(sv)    ((GdkAxisUse)gperl_convert_enum (GDK_TYPE_AXIS_USE, sv))
  25. # define newSVGdkAxisUse(val)    (gperl_convert_back_enum (GDK_TYPE_AXIS_USE, val))
  26. #endif /* GDK_TYPE_AXIS_USE */
  27.  
  28. #ifdef GDK_TYPE_BYTE_ORDER
  29.   /* GEnum GdkByteOrder */
  30. # define SvGdkByteOrder(sv)    ((GdkByteOrder)gperl_convert_enum (GDK_TYPE_BYTE_ORDER, sv))
  31. # define newSVGdkByteOrder(val)    (gperl_convert_back_enum (GDK_TYPE_BYTE_ORDER, val))
  32. #endif /* GDK_TYPE_BYTE_ORDER */
  33.  
  34. #ifdef GDK_TYPE_CAP_STYLE
  35.   /* GEnum GdkCapStyle */
  36. # define SvGdkCapStyle(sv)    ((GdkCapStyle)gperl_convert_enum (GDK_TYPE_CAP_STYLE, sv))
  37. # define newSVGdkCapStyle(val)    (gperl_convert_back_enum (GDK_TYPE_CAP_STYLE, val))
  38. #endif /* GDK_TYPE_CAP_STYLE */
  39.  
  40. #ifdef GDK_TYPE_COLOR
  41.   /* GBoxed GdkColor */
  42.   typedef GdkColor GdkColor_ornull;
  43. # define SvGdkColor(sv)    ((GdkColor *) gperl_get_boxed_check ((sv), GDK_TYPE_COLOR))
  44. # define SvGdkColor_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGdkColor (sv) : NULL)
  45.   typedef GdkColor GdkColor_own;
  46.   typedef GdkColor GdkColor_copy;
  47.   typedef GdkColor GdkColor_own_ornull;
  48. # define newSVGdkColor(val)    (gperl_new_boxed ((gpointer) (val), GDK_TYPE_COLOR, FALSE))
  49. # define newSVGdkColor_ornull(val)    ((val) ? newSVGdkColor(val) : &PL_sv_undef)
  50. # define newSVGdkColor_own(val)    (gperl_new_boxed ((gpointer) (val), GDK_TYPE_COLOR, TRUE))
  51. # define newSVGdkColor_copy(val)    (gperl_new_boxed_copy ((gpointer) (val), GDK_TYPE_COLOR))
  52. # define newSVGdkColor_own_ornull(val)    ((val) ? newSVGdkColor_own(val) : &PL_sv_undef)
  53. #endif /* GDK_TYPE_COLOR */
  54.  
  55. #ifdef GDK_TYPE_COLORMAP
  56.   /* GObject derivative GdkColormap */
  57. # define SvGdkColormap(sv)    ((GdkColormap*)gperl_get_object_check (sv, GDK_TYPE_COLORMAP))
  58. # define newSVGdkColormap(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  59.   typedef GdkColormap GdkColormap_ornull;
  60. # define SvGdkColormap_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGdkColormap(sv) : NULL)
  61. # define newSVGdkColormap_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  62. typedef GdkColormap GdkColormap_noinc;
  63. #define newSVGdkColormap_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  64. typedef GdkColormap GdkColormap_noinc_ornull;
  65. #define newSVGdkColormap_noinc_ornull(val)    ((val) ? newSVGdkColormap_noinc(val) : &PL_sv_undef)
  66. #endif /* GDK_TYPE_COLORMAP */
  67.  
  68. #ifdef GDK_TYPE_COLORSPACE
  69.   /* GEnum GdkColorspace */
  70. # define SvGdkColorspace(sv)    ((GdkColorspace)gperl_convert_enum (GDK_TYPE_COLORSPACE, sv))
  71. # define newSVGdkColorspace(val)    (gperl_convert_back_enum (GDK_TYPE_COLORSPACE, val))
  72. #endif /* GDK_TYPE_COLORSPACE */
  73.  
  74. #ifdef GDK_TYPE_CROSSING_MODE
  75.   /* GEnum GdkCrossingMode */
  76. # define SvGdkCrossingMode(sv)    ((GdkCrossingMode)gperl_convert_enum (GDK_TYPE_CROSSING_MODE, sv))
  77. # define newSVGdkCrossingMode(val)    (gperl_convert_back_enum (GDK_TYPE_CROSSING_MODE, val))
  78. #endif /* GDK_TYPE_CROSSING_MODE */
  79.  
  80. #ifdef GDK_TYPE_CURSOR
  81.   /* GBoxed GdkCursor */
  82.   typedef GdkCursor GdkCursor_ornull;
  83. # define SvGdkCursor(sv)    ((GdkCursor *) gperl_get_boxed_check ((sv), GDK_TYPE_CURSOR))
  84. # define SvGdkCursor_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGdkCursor (sv) : NULL)
  85.   typedef GdkCursor GdkCursor_own;
  86.   typedef GdkCursor GdkCursor_copy;
  87.   typedef GdkCursor GdkCursor_own_ornull;
  88. # define newSVGdkCursor(val)    (gperl_new_boxed ((gpointer) (val), GDK_TYPE_CURSOR, FALSE))
  89. # define newSVGdkCursor_ornull(val)    ((val) ? newSVGdkCursor(val) : &PL_sv_undef)
  90. # define newSVGdkCursor_own(val)    (gperl_new_boxed ((gpointer) (val), GDK_TYPE_CURSOR, TRUE))
  91. # define newSVGdkCursor_copy(val)    (gperl_new_boxed_copy ((gpointer) (val), GDK_TYPE_CURSOR))
  92. # define newSVGdkCursor_own_ornull(val)    ((val) ? newSVGdkCursor_own(val) : &PL_sv_undef)
  93. #endif /* GDK_TYPE_CURSOR */
  94.  
  95. #ifdef GDK_TYPE_CURSOR_TYPE
  96.   /* GEnum GdkCursorType */
  97. # define SvGdkCursorType(sv)    ((GdkCursorType)gperl_convert_enum (GDK_TYPE_CURSOR_TYPE, sv))
  98. # define newSVGdkCursorType(val)    (gperl_convert_back_enum (GDK_TYPE_CURSOR_TYPE, val))
  99. #endif /* GDK_TYPE_CURSOR_TYPE */
  100.  
  101. #ifdef GDK_TYPE_DEVICE
  102.   /* GObject derivative GdkDevice */
  103. # define SvGdkDevice(sv)    ((GdkDevice*)gperl_get_object_check (sv, GDK_TYPE_DEVICE))
  104. # define newSVGdkDevice(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  105.   typedef GdkDevice GdkDevice_ornull;
  106. # define SvGdkDevice_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGdkDevice(sv) : NULL)
  107. # define newSVGdkDevice_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  108. typedef GdkDevice GdkDevice_noinc;
  109. #define newSVGdkDevice_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  110. typedef GdkDevice GdkDevice_noinc_ornull;
  111. #define newSVGdkDevice_noinc_ornull(val)    ((val) ? newSVGdkDevice_noinc(val) : &PL_sv_undef)
  112. #endif /* GDK_TYPE_DEVICE */
  113.  
  114. #ifdef GDK_TYPE_DRAG_ACTION
  115.   /* GFlags GdkDragAction */
  116. # define SvGdkDragAction(sv)    ((GdkDragAction)gperl_convert_flags (GDK_TYPE_DRAG_ACTION, sv))
  117. # define newSVGdkDragAction(val)    (gperl_convert_back_flags (GDK_TYPE_DRAG_ACTION, val))
  118. #endif /* GDK_TYPE_DRAG_ACTION */
  119.  
  120. #ifdef GDK_TYPE_DRAG_CONTEXT
  121.   /* GObject derivative GdkDragContext */
  122. # define SvGdkDragContext(sv)    ((GdkDragContext*)gperl_get_object_check (sv, GDK_TYPE_DRAG_CONTEXT))
  123. # define newSVGdkDragContext(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  124.   typedef GdkDragContext GdkDragContext_ornull;
  125. # define SvGdkDragContext_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGdkDragContext(sv) : NULL)
  126. # define newSVGdkDragContext_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  127. typedef GdkDragContext GdkDragContext_noinc;
  128. #define newSVGdkDragContext_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  129. typedef GdkDragContext GdkDragContext_noinc_ornull;
  130. #define newSVGdkDragContext_noinc_ornull(val)    ((val) ? newSVGdkDragContext_noinc(val) : &PL_sv_undef)
  131. #endif /* GDK_TYPE_DRAG_CONTEXT */
  132.  
  133. #ifdef GDK_TYPE_DRAG_PROTOCOL
  134.   /* GEnum GdkDragProtocol */
  135. # define SvGdkDragProtocol(sv)    ((GdkDragProtocol)gperl_convert_enum (GDK_TYPE_DRAG_PROTOCOL, sv))
  136. # define newSVGdkDragProtocol(val)    (gperl_convert_back_enum (GDK_TYPE_DRAG_PROTOCOL, val))
  137. #endif /* GDK_TYPE_DRAG_PROTOCOL */
  138.  
  139. #ifdef GDK_TYPE_DRAWABLE
  140.   /* GObject derivative GdkDrawable */
  141. # define SvGdkDrawable(sv)    ((GdkDrawable*)gperl_get_object_check (sv, GDK_TYPE_DRAWABLE))
  142. # define newSVGdkDrawable(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  143.   typedef GdkDrawable GdkDrawable_ornull;
  144. # define SvGdkDrawable_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGdkDrawable(sv) : NULL)
  145. # define newSVGdkDrawable_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  146. typedef GdkDrawable GdkDrawable_noinc;
  147. #define newSVGdkDrawable_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  148. typedef GdkDrawable GdkDrawable_noinc_ornull;
  149. #define newSVGdkDrawable_noinc_ornull(val)    ((val) ? newSVGdkDrawable_noinc(val) : &PL_sv_undef)
  150. #endif /* GDK_TYPE_DRAWABLE */
  151.  
  152. #ifdef GDK_TYPE_EVENT
  153.   /* GBoxed GdkEvent */
  154.   typedef GdkEvent GdkEvent_ornull;
  155. # define SvGdkEvent(sv)    ((GdkEvent *) gperl_get_boxed_check ((sv), GDK_TYPE_EVENT))
  156. # define SvGdkEvent_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGdkEvent (sv) : NULL)
  157.   typedef GdkEvent GdkEvent_own;
  158.   typedef GdkEvent GdkEvent_copy;
  159.   typedef GdkEvent GdkEvent_own_ornull;
  160. # define newSVGdkEvent(val)    (gperl_new_boxed ((gpointer) (val), GDK_TYPE_EVENT, FALSE))
  161. # define newSVGdkEvent_ornull(val)    ((val) ? newSVGdkEvent(val) : &PL_sv_undef)
  162. # define newSVGdkEvent_own(val)    (gperl_new_boxed ((gpointer) (val), GDK_TYPE_EVENT, TRUE))
  163. # define newSVGdkEvent_copy(val)    (gperl_new_boxed_copy ((gpointer) (val), GDK_TYPE_EVENT))
  164. # define newSVGdkEvent_own_ornull(val)    ((val) ? newSVGdkEvent_own(val) : &PL_sv_undef)
  165. #endif /* GDK_TYPE_EVENT */
  166.  
  167. #ifdef GDK_TYPE_EVENT_MASK
  168.   /* GFlags GdkEventMask */
  169. # define SvGdkEventMask(sv)    ((GdkEventMask)gperl_convert_flags (GDK_TYPE_EVENT_MASK, sv))
  170. # define newSVGdkEventMask(val)    (gperl_convert_back_flags (GDK_TYPE_EVENT_MASK, val))
  171. #endif /* GDK_TYPE_EVENT_MASK */
  172.  
  173. #ifdef GDK_TYPE_EVENT_TYPE
  174.   /* GEnum GdkEventType */
  175. # define SvGdkEventType(sv)    ((GdkEventType)gperl_convert_enum (GDK_TYPE_EVENT_TYPE, sv))
  176. # define newSVGdkEventType(val)    (gperl_convert_back_enum (GDK_TYPE_EVENT_TYPE, val))
  177. #endif /* GDK_TYPE_EVENT_TYPE */
  178.  
  179. #ifdef GDK_TYPE_EXTENSION_MODE
  180.   /* GEnum GdkExtensionMode */
  181. # define SvGdkExtensionMode(sv)    ((GdkExtensionMode)gperl_convert_enum (GDK_TYPE_EXTENSION_MODE, sv))
  182. # define newSVGdkExtensionMode(val)    (gperl_convert_back_enum (GDK_TYPE_EXTENSION_MODE, val))
  183. #endif /* GDK_TYPE_EXTENSION_MODE */
  184.  
  185. #ifdef GDK_TYPE_FILL
  186.   /* GEnum GdkFill */
  187. # define SvGdkFill(sv)    ((GdkFill)gperl_convert_enum (GDK_TYPE_FILL, sv))
  188. # define newSVGdkFill(val)    (gperl_convert_back_enum (GDK_TYPE_FILL, val))
  189. #endif /* GDK_TYPE_FILL */
  190.  
  191. #ifdef GDK_TYPE_FILL_RULE
  192.   /* GEnum GdkFillRule */
  193. # define SvGdkFillRule(sv)    ((GdkFillRule)gperl_convert_enum (GDK_TYPE_FILL_RULE, sv))
  194. # define newSVGdkFillRule(val)    (gperl_convert_back_enum (GDK_TYPE_FILL_RULE, val))
  195. #endif /* GDK_TYPE_FILL_RULE */
  196.  
  197. #ifdef GDK_TYPE_FILTER_RETURN
  198.   /* GEnum GdkFilterReturn */
  199. # define SvGdkFilterReturn(sv)    ((GdkFilterReturn)gperl_convert_enum (GDK_TYPE_FILTER_RETURN, sv))
  200. # define newSVGdkFilterReturn(val)    (gperl_convert_back_enum (GDK_TYPE_FILTER_RETURN, val))
  201. #endif /* GDK_TYPE_FILTER_RETURN */
  202.  
  203. #ifdef GDK_TYPE_FONT
  204.   /* GBoxed GdkFont */
  205.   typedef GdkFont GdkFont_ornull;
  206. # define SvGdkFont(sv)    ((GdkFont *) gperl_get_boxed_check ((sv), GDK_TYPE_FONT))
  207. # define SvGdkFont_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGdkFont (sv) : NULL)
  208.   typedef GdkFont GdkFont_own;
  209.   typedef GdkFont GdkFont_copy;
  210.   typedef GdkFont GdkFont_own_ornull;
  211. # define newSVGdkFont(val)    (gperl_new_boxed ((gpointer) (val), GDK_TYPE_FONT, FALSE))
  212. # define newSVGdkFont_ornull(val)    ((val) ? newSVGdkFont(val) : &PL_sv_undef)
  213. # define newSVGdkFont_own(val)    (gperl_new_boxed ((gpointer) (val), GDK_TYPE_FONT, TRUE))
  214. # define newSVGdkFont_copy(val)    (gperl_new_boxed_copy ((gpointer) (val), GDK_TYPE_FONT))
  215. # define newSVGdkFont_own_ornull(val)    ((val) ? newSVGdkFont_own(val) : &PL_sv_undef)
  216. #endif /* GDK_TYPE_FONT */
  217.  
  218. #ifdef GDK_TYPE_FONT_TYPE
  219.   /* GEnum GdkFontType */
  220. # define SvGdkFontType(sv)    ((GdkFontType)gperl_convert_enum (GDK_TYPE_FONT_TYPE, sv))
  221. # define newSVGdkFontType(val)    (gperl_convert_back_enum (GDK_TYPE_FONT_TYPE, val))
  222. #endif /* GDK_TYPE_FONT_TYPE */
  223.  
  224. #ifdef GDK_TYPE_FUNCTION
  225.   /* GEnum GdkFunction */
  226. # define SvGdkFunction(sv)    ((GdkFunction)gperl_convert_enum (GDK_TYPE_FUNCTION, sv))
  227. # define newSVGdkFunction(val)    (gperl_convert_back_enum (GDK_TYPE_FUNCTION, val))
  228. #endif /* GDK_TYPE_FUNCTION */
  229.  
  230. #ifdef GDK_TYPE_GC
  231.   /* GObject derivative GdkGC */
  232. # define SvGdkGC(sv)    ((GdkGC*)gperl_get_object_check (sv, GDK_TYPE_GC))
  233. # define newSVGdkGC(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  234.   typedef GdkGC GdkGC_ornull;
  235. # define SvGdkGC_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGdkGC(sv) : NULL)
  236. # define newSVGdkGC_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  237. typedef GdkGC GdkGC_noinc;
  238. #define newSVGdkGC_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  239. typedef GdkGC GdkGC_noinc_ornull;
  240. #define newSVGdkGC_noinc_ornull(val)    ((val) ? newSVGdkGC_noinc(val) : &PL_sv_undef)
  241. #endif /* GDK_TYPE_GC */
  242.  
  243. #ifdef GDK_TYPE_GC_VALUES_MASK
  244.   /* GFlags GdkGCValuesMask */
  245. # define SvGdkGCValuesMask(sv)    ((GdkGCValuesMask)gperl_convert_flags (GDK_TYPE_GC_VALUES_MASK, sv))
  246. # define newSVGdkGCValuesMask(val)    (gperl_convert_back_flags (GDK_TYPE_GC_VALUES_MASK, val))
  247. #endif /* GDK_TYPE_GC_VALUES_MASK */
  248.  
  249. #ifdef GDK_TYPE_GRAB_STATUS
  250.   /* GEnum GdkGrabStatus */
  251. # define SvGdkGrabStatus(sv)    ((GdkGrabStatus)gperl_convert_enum (GDK_TYPE_GRAB_STATUS, sv))
  252. # define newSVGdkGrabStatus(val)    (gperl_convert_back_enum (GDK_TYPE_GRAB_STATUS, val))
  253. #endif /* GDK_TYPE_GRAB_STATUS */
  254.  
  255. #ifdef GDK_TYPE_GRAVITY
  256.   /* GEnum GdkGravity */
  257. # define SvGdkGravity(sv)    ((GdkGravity)gperl_convert_enum (GDK_TYPE_GRAVITY, sv))
  258. # define newSVGdkGravity(val)    (gperl_convert_back_enum (GDK_TYPE_GRAVITY, val))
  259. #endif /* GDK_TYPE_GRAVITY */
  260.  
  261. #ifdef GDK_TYPE_IMAGE
  262.   /* GObject derivative GdkImage */
  263. # define SvGdkImage(sv)    ((GdkImage*)gperl_get_object_check (sv, GDK_TYPE_IMAGE))
  264. # define newSVGdkImage(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  265.   typedef GdkImage GdkImage_ornull;
  266. # define SvGdkImage_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGdkImage(sv) : NULL)
  267. # define newSVGdkImage_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  268. typedef GdkImage GdkImage_noinc;
  269. #define newSVGdkImage_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  270. typedef GdkImage GdkImage_noinc_ornull;
  271. #define newSVGdkImage_noinc_ornull(val)    ((val) ? newSVGdkImage_noinc(val) : &PL_sv_undef)
  272. #endif /* GDK_TYPE_IMAGE */
  273.  
  274. #ifdef GDK_TYPE_IMAGE_TYPE
  275.   /* GEnum GdkImageType */
  276. # define SvGdkImageType(sv)    ((GdkImageType)gperl_convert_enum (GDK_TYPE_IMAGE_TYPE, sv))
  277. # define newSVGdkImageType(val)    (gperl_convert_back_enum (GDK_TYPE_IMAGE_TYPE, val))
  278. #endif /* GDK_TYPE_IMAGE_TYPE */
  279.  
  280. #ifdef GDK_TYPE_INPUT_CONDITION
  281.   /* GFlags GdkInputCondition */
  282. # define SvGdkInputCondition(sv)    ((GdkInputCondition)gperl_convert_flags (GDK_TYPE_INPUT_CONDITION, sv))
  283. # define newSVGdkInputCondition(val)    (gperl_convert_back_flags (GDK_TYPE_INPUT_CONDITION, val))
  284. #endif /* GDK_TYPE_INPUT_CONDITION */
  285.  
  286. #ifdef GDK_TYPE_INPUT_MODE
  287.   /* GEnum GdkInputMode */
  288. # define SvGdkInputMode(sv)    ((GdkInputMode)gperl_convert_enum (GDK_TYPE_INPUT_MODE, sv))
  289. # define newSVGdkInputMode(val)    (gperl_convert_back_enum (GDK_TYPE_INPUT_MODE, val))
  290. #endif /* GDK_TYPE_INPUT_MODE */
  291.  
  292. #ifdef GDK_TYPE_INPUT_SOURCE
  293.   /* GEnum GdkInputSource */
  294. # define SvGdkInputSource(sv)    ((GdkInputSource)gperl_convert_enum (GDK_TYPE_INPUT_SOURCE, sv))
  295. # define newSVGdkInputSource(val)    (gperl_convert_back_enum (GDK_TYPE_INPUT_SOURCE, val))
  296. #endif /* GDK_TYPE_INPUT_SOURCE */
  297.  
  298. #ifdef GDK_TYPE_INTERP_TYPE
  299.   /* GEnum GdkInterpType */
  300. # define SvGdkInterpType(sv)    ((GdkInterpType)gperl_convert_enum (GDK_TYPE_INTERP_TYPE, sv))
  301. # define newSVGdkInterpType(val)    (gperl_convert_back_enum (GDK_TYPE_INTERP_TYPE, val))
  302. #endif /* GDK_TYPE_INTERP_TYPE */
  303.  
  304. #ifdef GDK_TYPE_JOIN_STYLE
  305.   /* GEnum GdkJoinStyle */
  306. # define SvGdkJoinStyle(sv)    ((GdkJoinStyle)gperl_convert_enum (GDK_TYPE_JOIN_STYLE, sv))
  307. # define newSVGdkJoinStyle(val)    (gperl_convert_back_enum (GDK_TYPE_JOIN_STYLE, val))
  308. #endif /* GDK_TYPE_JOIN_STYLE */
  309.  
  310. #ifdef GDK_TYPE_KEYMAP
  311.   /* GObject derivative GdkKeymap */
  312. # define SvGdkKeymap(sv)    ((GdkKeymap*)gperl_get_object_check (sv, GDK_TYPE_KEYMAP))
  313. # define newSVGdkKeymap(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  314.   typedef GdkKeymap GdkKeymap_ornull;
  315. # define SvGdkKeymap_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGdkKeymap(sv) : NULL)
  316. # define newSVGdkKeymap_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  317. typedef GdkKeymap GdkKeymap_noinc;
  318. #define newSVGdkKeymap_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  319. typedef GdkKeymap GdkKeymap_noinc_ornull;
  320. #define newSVGdkKeymap_noinc_ornull(val)    ((val) ? newSVGdkKeymap_noinc(val) : &PL_sv_undef)
  321. #endif /* GDK_TYPE_KEYMAP */
  322.  
  323. #ifdef GDK_TYPE_LINE_STYLE
  324.   /* GEnum GdkLineStyle */
  325. # define SvGdkLineStyle(sv)    ((GdkLineStyle)gperl_convert_enum (GDK_TYPE_LINE_STYLE, sv))
  326. # define newSVGdkLineStyle(val)    (gperl_convert_back_enum (GDK_TYPE_LINE_STYLE, val))
  327. #endif /* GDK_TYPE_LINE_STYLE */
  328.  
  329. #ifdef GDK_TYPE_MODIFIER_TYPE
  330.   /* GFlags GdkModifierType */
  331. # define SvGdkModifierType(sv)    ((GdkModifierType)gperl_convert_flags (GDK_TYPE_MODIFIER_TYPE, sv))
  332. # define newSVGdkModifierType(val)    (gperl_convert_back_flags (GDK_TYPE_MODIFIER_TYPE, val))
  333. #endif /* GDK_TYPE_MODIFIER_TYPE */
  334.  
  335. #ifdef GDK_TYPE_NOTIFY_TYPE
  336.   /* GEnum GdkNotifyType */
  337. # define SvGdkNotifyType(sv)    ((GdkNotifyType)gperl_convert_enum (GDK_TYPE_NOTIFY_TYPE, sv))
  338. # define newSVGdkNotifyType(val)    (gperl_convert_back_enum (GDK_TYPE_NOTIFY_TYPE, val))
  339. #endif /* GDK_TYPE_NOTIFY_TYPE */
  340.  
  341. #ifdef GDK_TYPE_OVERLAP_TYPE
  342.   /* GEnum GdkOverlapType */
  343. # define SvGdkOverlapType(sv)    ((GdkOverlapType)gperl_convert_enum (GDK_TYPE_OVERLAP_TYPE, sv))
  344. # define newSVGdkOverlapType(val)    (gperl_convert_back_enum (GDK_TYPE_OVERLAP_TYPE, val))
  345. #endif /* GDK_TYPE_OVERLAP_TYPE */
  346.  
  347. #ifdef GDK_TYPE_PIXBUF_ALPHA_MODE
  348.   /* GEnum GdkPixbufAlphaMode */
  349. # define SvGdkPixbufAlphaMode(sv)    ((GdkPixbufAlphaMode)gperl_convert_enum (GDK_TYPE_PIXBUF_ALPHA_MODE, sv))
  350. # define newSVGdkPixbufAlphaMode(val)    (gperl_convert_back_enum (GDK_TYPE_PIXBUF_ALPHA_MODE, val))
  351. #endif /* GDK_TYPE_PIXBUF_ALPHA_MODE */
  352.  
  353. #ifdef GDK_TYPE_PIXBUF_ANIMATION
  354.   /* GObject derivative GdkPixbufAnimation */
  355. # define SvGdkPixbufAnimation(sv)    ((GdkPixbufAnimation*)gperl_get_object_check (sv, GDK_TYPE_PIXBUF_ANIMATION))
  356. # define newSVGdkPixbufAnimation(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  357.   typedef GdkPixbufAnimation GdkPixbufAnimation_ornull;
  358. # define SvGdkPixbufAnimation_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGdkPixbufAnimation(sv) : NULL)
  359. # define newSVGdkPixbufAnimation_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  360. typedef GdkPixbufAnimation GdkPixbufAnimation_noinc;
  361. #define newSVGdkPixbufAnimation_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  362. typedef GdkPixbufAnimation GdkPixbufAnimation_noinc_ornull;
  363. #define newSVGdkPixbufAnimation_noinc_ornull(val)    ((val) ? newSVGdkPixbufAnimation_noinc(val) : &PL_sv_undef)
  364. #endif /* GDK_TYPE_PIXBUF_ANIMATION */
  365.  
  366. #ifdef GDK_TYPE_PIXBUF_ANIMATION_ITER
  367.   /* GObject derivative GdkPixbufAnimationIter */
  368. # define SvGdkPixbufAnimationIter(sv)    ((GdkPixbufAnimationIter*)gperl_get_object_check (sv, GDK_TYPE_PIXBUF_ANIMATION_ITER))
  369. # define newSVGdkPixbufAnimationIter(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  370.   typedef GdkPixbufAnimationIter GdkPixbufAnimationIter_ornull;
  371. # define SvGdkPixbufAnimationIter_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGdkPixbufAnimationIter(sv) : NULL)
  372. # define newSVGdkPixbufAnimationIter_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  373. typedef GdkPixbufAnimationIter GdkPixbufAnimationIter_noinc;
  374. #define newSVGdkPixbufAnimationIter_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  375. typedef GdkPixbufAnimationIter GdkPixbufAnimationIter_noinc_ornull;
  376. #define newSVGdkPixbufAnimationIter_noinc_ornull(val)    ((val) ? newSVGdkPixbufAnimationIter_noinc(val) : &PL_sv_undef)
  377. #endif /* GDK_TYPE_PIXBUF_ANIMATION_ITER */
  378.  
  379. #ifdef GDK_TYPE_PIXBUF_ERROR
  380.   /* GEnum GdkPixbufError */
  381. # define SvGdkPixbufError(sv)    ((GdkPixbufError)gperl_convert_enum (GDK_TYPE_PIXBUF_ERROR, sv))
  382. # define newSVGdkPixbufError(val)    (gperl_convert_back_enum (GDK_TYPE_PIXBUF_ERROR, val))
  383. #endif /* GDK_TYPE_PIXBUF_ERROR */
  384.  
  385. #ifdef GDK_TYPE_PIXBUF
  386.   /* GObject derivative GdkPixbuf */
  387. # define SvGdkPixbuf(sv)    ((GdkPixbuf*)gperl_get_object_check (sv, GDK_TYPE_PIXBUF))
  388. # define newSVGdkPixbuf(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  389.   typedef GdkPixbuf GdkPixbuf_ornull;
  390. # define SvGdkPixbuf_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGdkPixbuf(sv) : NULL)
  391. # define newSVGdkPixbuf_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  392. typedef GdkPixbuf GdkPixbuf_noinc;
  393. #define newSVGdkPixbuf_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  394. typedef GdkPixbuf GdkPixbuf_noinc_ornull;
  395. #define newSVGdkPixbuf_noinc_ornull(val)    ((val) ? newSVGdkPixbuf_noinc(val) : &PL_sv_undef)
  396. #endif /* GDK_TYPE_PIXBUF */
  397.  
  398. #ifdef GDK_TYPE_PIXBUF_LOADER
  399.   /* GObject derivative GdkPixbufLoader */
  400. # define SvGdkPixbufLoader(sv)    ((GdkPixbufLoader*)gperl_get_object_check (sv, GDK_TYPE_PIXBUF_LOADER))
  401. # define newSVGdkPixbufLoader(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  402.   typedef GdkPixbufLoader GdkPixbufLoader_ornull;
  403. # define SvGdkPixbufLoader_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGdkPixbufLoader(sv) : NULL)
  404. # define newSVGdkPixbufLoader_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  405. typedef GdkPixbufLoader GdkPixbufLoader_noinc;
  406. #define newSVGdkPixbufLoader_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  407. typedef GdkPixbufLoader GdkPixbufLoader_noinc_ornull;
  408. #define newSVGdkPixbufLoader_noinc_ornull(val)    ((val) ? newSVGdkPixbufLoader_noinc(val) : &PL_sv_undef)
  409. #endif /* GDK_TYPE_PIXBUF_LOADER */
  410.  
  411. #ifdef GDK_TYPE_PIXMAP
  412.   /* GObject derivative GdkPixmap */
  413. # define SvGdkPixmap(sv)    ((GdkPixmap*)gperl_get_object_check (sv, GDK_TYPE_PIXMAP))
  414. # define newSVGdkPixmap(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  415.   typedef GdkPixmap GdkPixmap_ornull;
  416. # define SvGdkPixmap_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGdkPixmap(sv) : NULL)
  417. # define newSVGdkPixmap_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  418. typedef GdkPixmap GdkPixmap_noinc;
  419. #define newSVGdkPixmap_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  420. typedef GdkPixmap GdkPixmap_noinc_ornull;
  421. #define newSVGdkPixmap_noinc_ornull(val)    ((val) ? newSVGdkPixmap_noinc(val) : &PL_sv_undef)
  422. #endif /* GDK_TYPE_PIXMAP */
  423.  
  424. #ifdef GDK_TYPE_PROPERTY_STATE
  425.   /* GEnum GdkPropertyState */
  426. # define SvGdkPropertyState(sv)    ((GdkPropertyState)gperl_convert_enum (GDK_TYPE_PROPERTY_STATE, sv))
  427. # define newSVGdkPropertyState(val)    (gperl_convert_back_enum (GDK_TYPE_PROPERTY_STATE, val))
  428. #endif /* GDK_TYPE_PROPERTY_STATE */
  429.  
  430. #ifdef GDK_TYPE_PROP_MODE
  431.   /* GEnum GdkPropMode */
  432. # define SvGdkPropMode(sv)    ((GdkPropMode)gperl_convert_enum (GDK_TYPE_PROP_MODE, sv))
  433. # define newSVGdkPropMode(val)    (gperl_convert_back_enum (GDK_TYPE_PROP_MODE, val))
  434. #endif /* GDK_TYPE_PROP_MODE */
  435.  
  436. #ifdef GDK_TYPE_RECTANGLE
  437.   /* GBoxed GdkRectangle */
  438.   typedef GdkRectangle GdkRectangle_ornull;
  439. # define SvGdkRectangle(sv)    ((GdkRectangle *) gperl_get_boxed_check ((sv), GDK_TYPE_RECTANGLE))
  440. # define SvGdkRectangle_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGdkRectangle (sv) : NULL)
  441.   typedef GdkRectangle GdkRectangle_own;
  442.   typedef GdkRectangle GdkRectangle_copy;
  443.   typedef GdkRectangle GdkRectangle_own_ornull;
  444. # define newSVGdkRectangle(val)    (gperl_new_boxed ((gpointer) (val), GDK_TYPE_RECTANGLE, FALSE))
  445. # define newSVGdkRectangle_ornull(val)    ((val) ? newSVGdkRectangle(val) : &PL_sv_undef)
  446. # define newSVGdkRectangle_own(val)    (gperl_new_boxed ((gpointer) (val), GDK_TYPE_RECTANGLE, TRUE))
  447. # define newSVGdkRectangle_copy(val)    (gperl_new_boxed_copy ((gpointer) (val), GDK_TYPE_RECTANGLE))
  448. # define newSVGdkRectangle_own_ornull(val)    ((val) ? newSVGdkRectangle_own(val) : &PL_sv_undef)
  449. #endif /* GDK_TYPE_RECTANGLE */
  450.  
  451. #ifdef GDK_TYPE_RGB_DITHER
  452.   /* GEnum GdkRgbDither */
  453. # define SvGdkRgbDither(sv)    ((GdkRgbDither)gperl_convert_enum (GDK_TYPE_RGB_DITHER, sv))
  454. # define newSVGdkRgbDither(val)    (gperl_convert_back_enum (GDK_TYPE_RGB_DITHER, val))
  455. #endif /* GDK_TYPE_RGB_DITHER */
  456.  
  457. #ifdef GDK_TYPE_SCROLL_DIRECTION
  458.   /* GEnum GdkScrollDirection */
  459. # define SvGdkScrollDirection(sv)    ((GdkScrollDirection)gperl_convert_enum (GDK_TYPE_SCROLL_DIRECTION, sv))
  460. # define newSVGdkScrollDirection(val)    (gperl_convert_back_enum (GDK_TYPE_SCROLL_DIRECTION, val))
  461. #endif /* GDK_TYPE_SCROLL_DIRECTION */
  462.  
  463. #ifdef GDK_TYPE_SETTING_ACTION
  464.   /* GEnum GdkSettingAction */
  465. # define SvGdkSettingAction(sv)    ((GdkSettingAction)gperl_convert_enum (GDK_TYPE_SETTING_ACTION, sv))
  466. # define newSVGdkSettingAction(val)    (gperl_convert_back_enum (GDK_TYPE_SETTING_ACTION, val))
  467. #endif /* GDK_TYPE_SETTING_ACTION */
  468.  
  469. #ifdef GDK_TYPE_STATUS
  470.   /* GEnum GdkStatus */
  471. # define SvGdkStatus(sv)    ((GdkStatus)gperl_convert_enum (GDK_TYPE_STATUS, sv))
  472. # define newSVGdkStatus(val)    (gperl_convert_back_enum (GDK_TYPE_STATUS, val))
  473. #endif /* GDK_TYPE_STATUS */
  474.  
  475. #ifdef GDK_TYPE_SUBWINDOW_MODE
  476.   /* GEnum GdkSubwindowMode */
  477. # define SvGdkSubwindowMode(sv)    ((GdkSubwindowMode)gperl_convert_enum (GDK_TYPE_SUBWINDOW_MODE, sv))
  478. # define newSVGdkSubwindowMode(val)    (gperl_convert_back_enum (GDK_TYPE_SUBWINDOW_MODE, val))
  479. #endif /* GDK_TYPE_SUBWINDOW_MODE */
  480.  
  481. #ifdef GDK_TYPE_VISIBILITY_STATE
  482.   /* GEnum GdkVisibilityState */
  483. # define SvGdkVisibilityState(sv)    ((GdkVisibilityState)gperl_convert_enum (GDK_TYPE_VISIBILITY_STATE, sv))
  484. # define newSVGdkVisibilityState(val)    (gperl_convert_back_enum (GDK_TYPE_VISIBILITY_STATE, val))
  485. #endif /* GDK_TYPE_VISIBILITY_STATE */
  486.  
  487. #ifdef GDK_TYPE_VISUAL
  488.   /* GObject derivative GdkVisual */
  489. # define SvGdkVisual(sv)    ((GdkVisual*)gperl_get_object_check (sv, GDK_TYPE_VISUAL))
  490. # define newSVGdkVisual(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  491.   typedef GdkVisual GdkVisual_ornull;
  492. # define SvGdkVisual_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGdkVisual(sv) : NULL)
  493. # define newSVGdkVisual_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  494. typedef GdkVisual GdkVisual_noinc;
  495. #define newSVGdkVisual_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  496. typedef GdkVisual GdkVisual_noinc_ornull;
  497. #define newSVGdkVisual_noinc_ornull(val)    ((val) ? newSVGdkVisual_noinc(val) : &PL_sv_undef)
  498. #endif /* GDK_TYPE_VISUAL */
  499.  
  500. #ifdef GDK_TYPE_VISUAL_TYPE
  501.   /* GEnum GdkVisualType */
  502. # define SvGdkVisualType(sv)    ((GdkVisualType)gperl_convert_enum (GDK_TYPE_VISUAL_TYPE, sv))
  503. # define newSVGdkVisualType(val)    (gperl_convert_back_enum (GDK_TYPE_VISUAL_TYPE, val))
  504. #endif /* GDK_TYPE_VISUAL_TYPE */
  505.  
  506. #ifdef GDK_TYPE_WINDOW_ATTRIBUTES_TYPE
  507.   /* GFlags GdkWindowAttributesType */
  508. # define SvGdkWindowAttributesType(sv)    ((GdkWindowAttributesType)gperl_convert_flags (GDK_TYPE_WINDOW_ATTRIBUTES_TYPE, sv))
  509. # define newSVGdkWindowAttributesType(val)    (gperl_convert_back_flags (GDK_TYPE_WINDOW_ATTRIBUTES_TYPE, val))
  510. #endif /* GDK_TYPE_WINDOW_ATTRIBUTES_TYPE */
  511.  
  512. #ifdef GDK_TYPE_WINDOW_CLASS
  513.   /* GEnum GdkWindowClass */
  514. # define SvGdkWindowClass(sv)    ((GdkWindowClass)gperl_convert_enum (GDK_TYPE_WINDOW_CLASS, sv))
  515. # define newSVGdkWindowClass(val)    (gperl_convert_back_enum (GDK_TYPE_WINDOW_CLASS, val))
  516. #endif /* GDK_TYPE_WINDOW_CLASS */
  517.  
  518. #ifdef GDK_TYPE_WINDOW_EDGE
  519.   /* GEnum GdkWindowEdge */
  520. # define SvGdkWindowEdge(sv)    ((GdkWindowEdge)gperl_convert_enum (GDK_TYPE_WINDOW_EDGE, sv))
  521. # define newSVGdkWindowEdge(val)    (gperl_convert_back_enum (GDK_TYPE_WINDOW_EDGE, val))
  522. #endif /* GDK_TYPE_WINDOW_EDGE */
  523.  
  524. #ifdef GDK_TYPE_WINDOW
  525.   /* GObject derivative GdkWindow */
  526. # define SvGdkWindow(sv)    ((GdkWindow*)gperl_get_object_check (sv, GDK_TYPE_WINDOW))
  527. # define newSVGdkWindow(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  528.   typedef GdkWindow GdkWindow_ornull;
  529. # define SvGdkWindow_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGdkWindow(sv) : NULL)
  530. # define newSVGdkWindow_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  531. typedef GdkWindow GdkWindow_noinc;
  532. #define newSVGdkWindow_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  533. typedef GdkWindow GdkWindow_noinc_ornull;
  534. #define newSVGdkWindow_noinc_ornull(val)    ((val) ? newSVGdkWindow_noinc(val) : &PL_sv_undef)
  535. #endif /* GDK_TYPE_WINDOW */
  536.  
  537. #ifdef GDK_TYPE_WINDOW_HINTS
  538.   /* GFlags GdkWindowHints */
  539. # define SvGdkWindowHints(sv)    ((GdkWindowHints)gperl_convert_flags (GDK_TYPE_WINDOW_HINTS, sv))
  540. # define newSVGdkWindowHints(val)    (gperl_convert_back_flags (GDK_TYPE_WINDOW_HINTS, val))
  541. #endif /* GDK_TYPE_WINDOW_HINTS */
  542.  
  543. #ifdef GDK_TYPE_WINDOW_STATE
  544.   /* GFlags GdkWindowState */
  545. # define SvGdkWindowState(sv)    ((GdkWindowState)gperl_convert_flags (GDK_TYPE_WINDOW_STATE, sv))
  546. # define newSVGdkWindowState(val)    (gperl_convert_back_flags (GDK_TYPE_WINDOW_STATE, val))
  547. #endif /* GDK_TYPE_WINDOW_STATE */
  548.  
  549. #ifdef GDK_TYPE_WINDOW_TYPE
  550.   /* GEnum GdkWindowType */
  551. # define SvGdkWindowType(sv)    ((GdkWindowType)gperl_convert_enum (GDK_TYPE_WINDOW_TYPE, sv))
  552. # define newSVGdkWindowType(val)    (gperl_convert_back_enum (GDK_TYPE_WINDOW_TYPE, val))
  553. #endif /* GDK_TYPE_WINDOW_TYPE */
  554.  
  555. #ifdef GDK_TYPE_WINDOW_TYPE_HINT
  556.   /* GEnum GdkWindowTypeHint */
  557. # define SvGdkWindowTypeHint(sv)    ((GdkWindowTypeHint)gperl_convert_enum (GDK_TYPE_WINDOW_TYPE_HINT, sv))
  558. # define newSVGdkWindowTypeHint(val)    (gperl_convert_back_enum (GDK_TYPE_WINDOW_TYPE_HINT, val))
  559. #endif /* GDK_TYPE_WINDOW_TYPE_HINT */
  560.  
  561. #ifdef GDK_TYPE_WM_DECORATION
  562.   /* GFlags GdkWMDecoration */
  563. # define SvGdkWMDecoration(sv)    ((GdkWMDecoration)gperl_convert_flags (GDK_TYPE_WM_DECORATION, sv))
  564. # define newSVGdkWMDecoration(val)    (gperl_convert_back_flags (GDK_TYPE_WM_DECORATION, val))
  565. #endif /* GDK_TYPE_WM_DECORATION */
  566.  
  567. #ifdef GDK_TYPE_WM_FUNCTION
  568.   /* GFlags GdkWMFunction */
  569. # define SvGdkWMFunction(sv)    ((GdkWMFunction)gperl_convert_flags (GDK_TYPE_WM_FUNCTION, sv))
  570. # define newSVGdkWMFunction(val)    (gperl_convert_back_flags (GDK_TYPE_WM_FUNCTION, val))
  571. #endif /* GDK_TYPE_WM_FUNCTION */
  572.  
  573. #ifdef GTK_TYPE_ACCEL_FLAGS
  574.   /* GFlags GtkAccelFlags */
  575. # define SvGtkAccelFlags(sv)    ((GtkAccelFlags)gperl_convert_flags (GTK_TYPE_ACCEL_FLAGS, sv))
  576. # define newSVGtkAccelFlags(val)    (gperl_convert_back_flags (GTK_TYPE_ACCEL_FLAGS, val))
  577. #endif /* GTK_TYPE_ACCEL_FLAGS */
  578.  
  579. #ifdef GTK_TYPE_ACCEL_GROUP
  580.   /* GObject derivative GtkAccelGroup */
  581. # define SvGtkAccelGroup(sv)    ((GtkAccelGroup*)gperl_get_object_check (sv, GTK_TYPE_ACCEL_GROUP))
  582. # define newSVGtkAccelGroup(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  583.   typedef GtkAccelGroup GtkAccelGroup_ornull;
  584. # define SvGtkAccelGroup_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkAccelGroup(sv) : NULL)
  585. # define newSVGtkAccelGroup_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  586. typedef GtkAccelGroup GtkAccelGroup_noinc;
  587. #define newSVGtkAccelGroup_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  588. typedef GtkAccelGroup GtkAccelGroup_noinc_ornull;
  589. #define newSVGtkAccelGroup_noinc_ornull(val)    ((val) ? newSVGtkAccelGroup_noinc(val) : &PL_sv_undef)
  590. #endif /* GTK_TYPE_ACCEL_GROUP */
  591.  
  592. #ifdef GTK_TYPE_ACCEL_LABEL
  593.   /* GtkObject derivative GtkAccelLabel */
  594. # define SvGtkAccelLabel(sv)    ((GtkAccelLabel*)gperl_get_object_check (sv, GTK_TYPE_ACCEL_LABEL))
  595. # define newSVGtkAccelLabel(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  596.   typedef GtkAccelLabel GtkAccelLabel_ornull;
  597. # define SvGtkAccelLabel_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkAccelLabel(sv) : NULL)
  598. # define newSVGtkAccelLabel_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  599. #endif /* GTK_TYPE_ACCEL_LABEL */
  600.  
  601. #ifdef GTK_TYPE_ACCESSIBLE
  602.   /* GObject derivative GtkAccessible */
  603. # define SvGtkAccessible(sv)    ((GtkAccessible*)gperl_get_object_check (sv, GTK_TYPE_ACCESSIBLE))
  604. # define newSVGtkAccessible(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  605.   typedef GtkAccessible GtkAccessible_ornull;
  606. # define SvGtkAccessible_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkAccessible(sv) : NULL)
  607. # define newSVGtkAccessible_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  608. typedef GtkAccessible GtkAccessible_noinc;
  609. #define newSVGtkAccessible_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  610. typedef GtkAccessible GtkAccessible_noinc_ornull;
  611. #define newSVGtkAccessible_noinc_ornull(val)    ((val) ? newSVGtkAccessible_noinc(val) : &PL_sv_undef)
  612. #endif /* GTK_TYPE_ACCESSIBLE */
  613.  
  614. #ifdef GTK_TYPE_ADJUSTMENT
  615.   /* GtkObject derivative GtkAdjustment */
  616. # define SvGtkAdjustment(sv)    ((GtkAdjustment*)gperl_get_object_check (sv, GTK_TYPE_ADJUSTMENT))
  617. # define newSVGtkAdjustment(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  618.   typedef GtkAdjustment GtkAdjustment_ornull;
  619. # define SvGtkAdjustment_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkAdjustment(sv) : NULL)
  620. # define newSVGtkAdjustment_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  621. #endif /* GTK_TYPE_ADJUSTMENT */
  622.  
  623. #ifdef GTK_TYPE_ALIGNMENT
  624.   /* GtkObject derivative GtkAlignment */
  625. # define SvGtkAlignment(sv)    ((GtkAlignment*)gperl_get_object_check (sv, GTK_TYPE_ALIGNMENT))
  626. # define newSVGtkAlignment(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  627.   typedef GtkAlignment GtkAlignment_ornull;
  628. # define SvGtkAlignment_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkAlignment(sv) : NULL)
  629. # define newSVGtkAlignment_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  630. #endif /* GTK_TYPE_ALIGNMENT */
  631.  
  632. #ifdef GTK_TYPE_ANCHOR_TYPE
  633.   /* GEnum GtkAnchorType */
  634. # define SvGtkAnchorType(sv)    ((GtkAnchorType)gperl_convert_enum (GTK_TYPE_ANCHOR_TYPE, sv))
  635. # define newSVGtkAnchorType(val)    (gperl_convert_back_enum (GTK_TYPE_ANCHOR_TYPE, val))
  636. #endif /* GTK_TYPE_ANCHOR_TYPE */
  637.  
  638. #ifdef GTK_TYPE_ARG_FLAGS
  639.   /* GFlags GtkArgFlags */
  640. # define SvGtkArgFlags(sv)    ((GtkArgFlags)gperl_convert_flags (GTK_TYPE_ARG_FLAGS, sv))
  641. # define newSVGtkArgFlags(val)    (gperl_convert_back_flags (GTK_TYPE_ARG_FLAGS, val))
  642. #endif /* GTK_TYPE_ARG_FLAGS */
  643.  
  644. #ifdef GTK_TYPE_ARROW
  645.   /* GtkObject derivative GtkArrow */
  646. # define SvGtkArrow(sv)    ((GtkArrow*)gperl_get_object_check (sv, GTK_TYPE_ARROW))
  647. # define newSVGtkArrow(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  648.   typedef GtkArrow GtkArrow_ornull;
  649. # define SvGtkArrow_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkArrow(sv) : NULL)
  650. # define newSVGtkArrow_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  651. #endif /* GTK_TYPE_ARROW */
  652.  
  653. #ifdef GTK_TYPE_ARROW_TYPE
  654.   /* GEnum GtkArrowType */
  655. # define SvGtkArrowType(sv)    ((GtkArrowType)gperl_convert_enum (GTK_TYPE_ARROW_TYPE, sv))
  656. # define newSVGtkArrowType(val)    (gperl_convert_back_enum (GTK_TYPE_ARROW_TYPE, val))
  657. #endif /* GTK_TYPE_ARROW_TYPE */
  658.  
  659. #ifdef GTK_TYPE_ASPECT_FRAME
  660.   /* GtkObject derivative GtkAspectFrame */
  661. # define SvGtkAspectFrame(sv)    ((GtkAspectFrame*)gperl_get_object_check (sv, GTK_TYPE_ASPECT_FRAME))
  662. # define newSVGtkAspectFrame(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  663.   typedef GtkAspectFrame GtkAspectFrame_ornull;
  664. # define SvGtkAspectFrame_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkAspectFrame(sv) : NULL)
  665. # define newSVGtkAspectFrame_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  666. #endif /* GTK_TYPE_ASPECT_FRAME */
  667.  
  668. #ifdef GTK_TYPE_ATTACH_OPTIONS
  669.   /* GFlags GtkAttachOptions */
  670. # define SvGtkAttachOptions(sv)    ((GtkAttachOptions)gperl_convert_flags (GTK_TYPE_ATTACH_OPTIONS, sv))
  671. # define newSVGtkAttachOptions(val)    (gperl_convert_back_flags (GTK_TYPE_ATTACH_OPTIONS, val))
  672. #endif /* GTK_TYPE_ATTACH_OPTIONS */
  673.  
  674. #ifdef GTK_TYPE_BIN
  675.   /* GtkObject derivative GtkBin */
  676. # define SvGtkBin(sv)    ((GtkBin*)gperl_get_object_check (sv, GTK_TYPE_BIN))
  677. # define newSVGtkBin(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  678.   typedef GtkBin GtkBin_ornull;
  679. # define SvGtkBin_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkBin(sv) : NULL)
  680. # define newSVGtkBin_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  681. #endif /* GTK_TYPE_BIN */
  682.  
  683. #ifdef GTK_TYPE_BORDER
  684.   /* GBoxed GtkBorder */
  685.   typedef GtkBorder GtkBorder_ornull;
  686. # define SvGtkBorder(sv)    ((GtkBorder *) gperl_get_boxed_check ((sv), GTK_TYPE_BORDER))
  687. # define SvGtkBorder_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkBorder (sv) : NULL)
  688.   typedef GtkBorder GtkBorder_own;
  689.   typedef GtkBorder GtkBorder_copy;
  690.   typedef GtkBorder GtkBorder_own_ornull;
  691. # define newSVGtkBorder(val)    (gperl_new_boxed ((gpointer) (val), GTK_TYPE_BORDER, FALSE))
  692. # define newSVGtkBorder_ornull(val)    ((val) ? newSVGtkBorder(val) : &PL_sv_undef)
  693. # define newSVGtkBorder_own(val)    (gperl_new_boxed ((gpointer) (val), GTK_TYPE_BORDER, TRUE))
  694. # define newSVGtkBorder_copy(val)    (gperl_new_boxed_copy ((gpointer) (val), GTK_TYPE_BORDER))
  695. # define newSVGtkBorder_own_ornull(val)    ((val) ? newSVGtkBorder_own(val) : &PL_sv_undef)
  696. #endif /* GTK_TYPE_BORDER */
  697.  
  698. #ifdef GTK_TYPE_BOX
  699.   /* GtkObject derivative GtkBox */
  700. # define SvGtkBox(sv)    ((GtkBox*)gperl_get_object_check (sv, GTK_TYPE_BOX))
  701. # define newSVGtkBox(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  702.   typedef GtkBox GtkBox_ornull;
  703. # define SvGtkBox_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkBox(sv) : NULL)
  704. # define newSVGtkBox_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  705. #endif /* GTK_TYPE_BOX */
  706.  
  707. #ifdef GTK_TYPE_BUTTON_BOX
  708.   /* GtkObject derivative GtkButtonBox */
  709. # define SvGtkButtonBox(sv)    ((GtkButtonBox*)gperl_get_object_check (sv, GTK_TYPE_BUTTON_BOX))
  710. # define newSVGtkButtonBox(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  711.   typedef GtkButtonBox GtkButtonBox_ornull;
  712. # define SvGtkButtonBox_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkButtonBox(sv) : NULL)
  713. # define newSVGtkButtonBox_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  714. #endif /* GTK_TYPE_BUTTON_BOX */
  715.  
  716. #ifdef GTK_TYPE_BUTTON_BOX_STYLE
  717.   /* GEnum GtkButtonBoxStyle */
  718. # define SvGtkButtonBoxStyle(sv)    ((GtkButtonBoxStyle)gperl_convert_enum (GTK_TYPE_BUTTON_BOX_STYLE, sv))
  719. # define newSVGtkButtonBoxStyle(val)    (gperl_convert_back_enum (GTK_TYPE_BUTTON_BOX_STYLE, val))
  720. #endif /* GTK_TYPE_BUTTON_BOX_STYLE */
  721.  
  722. #ifdef GTK_TYPE_BUTTON
  723.   /* GtkObject derivative GtkButton */
  724. # define SvGtkButton(sv)    ((GtkButton*)gperl_get_object_check (sv, GTK_TYPE_BUTTON))
  725. # define newSVGtkButton(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  726.   typedef GtkButton GtkButton_ornull;
  727. # define SvGtkButton_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkButton(sv) : NULL)
  728. # define newSVGtkButton_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  729. #endif /* GTK_TYPE_BUTTON */
  730.  
  731. #ifdef GTK_TYPE_BUTTONS_TYPE
  732.   /* GEnum GtkButtonsType */
  733. # define SvGtkButtonsType(sv)    ((GtkButtonsType)gperl_convert_enum (GTK_TYPE_BUTTONS_TYPE, sv))
  734. # define newSVGtkButtonsType(val)    (gperl_convert_back_enum (GTK_TYPE_BUTTONS_TYPE, val))
  735. #endif /* GTK_TYPE_BUTTONS_TYPE */
  736.  
  737. #ifdef GTK_TYPE_CALENDAR_DISPLAY_OPTIONS
  738.   /* GFlags GtkCalendarDisplayOptions */
  739. # define SvGtkCalendarDisplayOptions(sv)    ((GtkCalendarDisplayOptions)gperl_convert_flags (GTK_TYPE_CALENDAR_DISPLAY_OPTIONS, sv))
  740. # define newSVGtkCalendarDisplayOptions(val)    (gperl_convert_back_flags (GTK_TYPE_CALENDAR_DISPLAY_OPTIONS, val))
  741. #endif /* GTK_TYPE_CALENDAR_DISPLAY_OPTIONS */
  742.  
  743. #ifdef GTK_TYPE_CALENDAR
  744.   /* GtkObject derivative GtkCalendar */
  745. # define SvGtkCalendar(sv)    ((GtkCalendar*)gperl_get_object_check (sv, GTK_TYPE_CALENDAR))
  746. # define newSVGtkCalendar(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  747.   typedef GtkCalendar GtkCalendar_ornull;
  748. # define SvGtkCalendar_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkCalendar(sv) : NULL)
  749. # define newSVGtkCalendar_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  750. #endif /* GTK_TYPE_CALENDAR */
  751.  
  752. #ifdef GTK_TYPE_CELL_EDITABLE
  753.   /* GInterface derivative GtkCellEditable */
  754. # define SvGtkCellEditable(sv)    ((GtkCellEditable*)gperl_get_object_check (sv, GTK_TYPE_CELL_EDITABLE))
  755. # define newSVGtkCellEditable(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  756.   typedef GtkCellEditable GtkCellEditable_ornull;
  757. # define SvGtkCellEditable_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkCellEditable(sv) : NULL)
  758. # define newSVGtkCellEditable_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  759. #endif /* GTK_TYPE_CELL_EDITABLE */
  760.  
  761. #ifdef GTK_TYPE_CELL_RENDERER
  762.   /* GtkObject derivative GtkCellRenderer */
  763. # define SvGtkCellRenderer(sv)    ((GtkCellRenderer*)gperl_get_object_check (sv, GTK_TYPE_CELL_RENDERER))
  764. # define newSVGtkCellRenderer(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  765.   typedef GtkCellRenderer GtkCellRenderer_ornull;
  766. # define SvGtkCellRenderer_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkCellRenderer(sv) : NULL)
  767. # define newSVGtkCellRenderer_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  768. #endif /* GTK_TYPE_CELL_RENDERER */
  769.  
  770. #ifdef GTK_TYPE_CELL_RENDERER_MODE
  771.   /* GEnum GtkCellRendererMode */
  772. # define SvGtkCellRendererMode(sv)    ((GtkCellRendererMode)gperl_convert_enum (GTK_TYPE_CELL_RENDERER_MODE, sv))
  773. # define newSVGtkCellRendererMode(val)    (gperl_convert_back_enum (GTK_TYPE_CELL_RENDERER_MODE, val))
  774. #endif /* GTK_TYPE_CELL_RENDERER_MODE */
  775.  
  776. #ifdef GTK_TYPE_CELL_RENDERER_PIXBUF
  777.   /* GtkObject derivative GtkCellRendererPixbuf */
  778. # define SvGtkCellRendererPixbuf(sv)    ((GtkCellRendererPixbuf*)gperl_get_object_check (sv, GTK_TYPE_CELL_RENDERER_PIXBUF))
  779. # define newSVGtkCellRendererPixbuf(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  780.   typedef GtkCellRendererPixbuf GtkCellRendererPixbuf_ornull;
  781. # define SvGtkCellRendererPixbuf_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkCellRendererPixbuf(sv) : NULL)
  782. # define newSVGtkCellRendererPixbuf_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  783. #endif /* GTK_TYPE_CELL_RENDERER_PIXBUF */
  784.  
  785. #ifdef GTK_TYPE_CELL_RENDERER_STATE
  786.   /* GFlags GtkCellRendererState */
  787. # define SvGtkCellRendererState(sv)    ((GtkCellRendererState)gperl_convert_flags (GTK_TYPE_CELL_RENDERER_STATE, sv))
  788. # define newSVGtkCellRendererState(val)    (gperl_convert_back_flags (GTK_TYPE_CELL_RENDERER_STATE, val))
  789. #endif /* GTK_TYPE_CELL_RENDERER_STATE */
  790.  
  791. #ifdef GTK_TYPE_CELL_RENDERER_TEXT
  792.   /* GtkObject derivative GtkCellRendererText */
  793. # define SvGtkCellRendererText(sv)    ((GtkCellRendererText*)gperl_get_object_check (sv, GTK_TYPE_CELL_RENDERER_TEXT))
  794. # define newSVGtkCellRendererText(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  795.   typedef GtkCellRendererText GtkCellRendererText_ornull;
  796. # define SvGtkCellRendererText_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkCellRendererText(sv) : NULL)
  797. # define newSVGtkCellRendererText_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  798. #endif /* GTK_TYPE_CELL_RENDERER_TEXT */
  799.  
  800. #ifdef GTK_TYPE_CELL_RENDERER_TOGGLE
  801.   /* GtkObject derivative GtkCellRendererToggle */
  802. # define SvGtkCellRendererToggle(sv)    ((GtkCellRendererToggle*)gperl_get_object_check (sv, GTK_TYPE_CELL_RENDERER_TOGGLE))
  803. # define newSVGtkCellRendererToggle(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  804.   typedef GtkCellRendererToggle GtkCellRendererToggle_ornull;
  805. # define SvGtkCellRendererToggle_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkCellRendererToggle(sv) : NULL)
  806. # define newSVGtkCellRendererToggle_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  807. #endif /* GTK_TYPE_CELL_RENDERER_TOGGLE */
  808.  
  809. #ifdef GTK_TYPE_CHECK_BUTTON
  810.   /* GtkObject derivative GtkCheckButton */
  811. # define SvGtkCheckButton(sv)    ((GtkCheckButton*)gperl_get_object_check (sv, GTK_TYPE_CHECK_BUTTON))
  812. # define newSVGtkCheckButton(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  813.   typedef GtkCheckButton GtkCheckButton_ornull;
  814. # define SvGtkCheckButton_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkCheckButton(sv) : NULL)
  815. # define newSVGtkCheckButton_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  816. #endif /* GTK_TYPE_CHECK_BUTTON */
  817.  
  818. #ifdef GTK_TYPE_CHECK_MENU_ITEM
  819.   /* GtkObject derivative GtkCheckMenuItem */
  820. # define SvGtkCheckMenuItem(sv)    ((GtkCheckMenuItem*)gperl_get_object_check (sv, GTK_TYPE_CHECK_MENU_ITEM))
  821. # define newSVGtkCheckMenuItem(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  822.   typedef GtkCheckMenuItem GtkCheckMenuItem_ornull;
  823. # define SvGtkCheckMenuItem_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkCheckMenuItem(sv) : NULL)
  824. # define newSVGtkCheckMenuItem_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  825. #endif /* GTK_TYPE_CHECK_MENU_ITEM */
  826.  
  827. #ifdef GTK_TYPE_COLOR_SELECTION_DIALOG
  828.   /* GtkObject derivative GtkColorSelectionDialog */
  829. # define SvGtkColorSelectionDialog(sv)    ((GtkColorSelectionDialog*)gperl_get_object_check (sv, GTK_TYPE_COLOR_SELECTION_DIALOG))
  830. # define newSVGtkColorSelectionDialog(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  831.   typedef GtkColorSelectionDialog GtkColorSelectionDialog_ornull;
  832. # define SvGtkColorSelectionDialog_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkColorSelectionDialog(sv) : NULL)
  833. # define newSVGtkColorSelectionDialog_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  834. #endif /* GTK_TYPE_COLOR_SELECTION_DIALOG */
  835.  
  836. #ifdef GTK_TYPE_COLOR_SELECTION
  837.   /* GtkObject derivative GtkColorSelection */
  838. # define SvGtkColorSelection(sv)    ((GtkColorSelection*)gperl_get_object_check (sv, GTK_TYPE_COLOR_SELECTION))
  839. # define newSVGtkColorSelection(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  840.   typedef GtkColorSelection GtkColorSelection_ornull;
  841. # define SvGtkColorSelection_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkColorSelection(sv) : NULL)
  842. # define newSVGtkColorSelection_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  843. #endif /* GTK_TYPE_COLOR_SELECTION */
  844.  
  845. #ifdef GTK_TYPE_COMBO
  846.   /* GtkObject derivative GtkCombo */
  847. # define SvGtkCombo(sv)    ((GtkCombo*)gperl_get_object_check (sv, GTK_TYPE_COMBO))
  848. # define newSVGtkCombo(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  849.   typedef GtkCombo GtkCombo_ornull;
  850. # define SvGtkCombo_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkCombo(sv) : NULL)
  851. # define newSVGtkCombo_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  852. #endif /* GTK_TYPE_COMBO */
  853.  
  854. #ifdef GTK_TYPE_CONTAINER
  855.   /* GtkObject derivative GtkContainer */
  856. # define SvGtkContainer(sv)    ((GtkContainer*)gperl_get_object_check (sv, GTK_TYPE_CONTAINER))
  857. # define newSVGtkContainer(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  858.   typedef GtkContainer GtkContainer_ornull;
  859. # define SvGtkContainer_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkContainer(sv) : NULL)
  860. # define newSVGtkContainer_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  861. #endif /* GTK_TYPE_CONTAINER */
  862.  
  863. #ifdef GTK_TYPE_CORNER_TYPE
  864.   /* GEnum GtkCornerType */
  865. # define SvGtkCornerType(sv)    ((GtkCornerType)gperl_convert_enum (GTK_TYPE_CORNER_TYPE, sv))
  866. # define newSVGtkCornerType(val)    (gperl_convert_back_enum (GTK_TYPE_CORNER_TYPE, val))
  867. #endif /* GTK_TYPE_CORNER_TYPE */
  868.  
  869. #ifdef GTK_TYPE_CURVE
  870.   /* GtkObject derivative GtkCurve */
  871. # define SvGtkCurve(sv)    ((GtkCurve*)gperl_get_object_check (sv, GTK_TYPE_CURVE))
  872. # define newSVGtkCurve(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  873.   typedef GtkCurve GtkCurve_ornull;
  874. # define SvGtkCurve_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkCurve(sv) : NULL)
  875. # define newSVGtkCurve_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  876. #endif /* GTK_TYPE_CURVE */
  877.  
  878. #ifdef GTK_TYPE_CURVE_TYPE
  879.   /* GEnum GtkCurveType */
  880. # define SvGtkCurveType(sv)    ((GtkCurveType)gperl_convert_enum (GTK_TYPE_CURVE_TYPE, sv))
  881. # define newSVGtkCurveType(val)    (gperl_convert_back_enum (GTK_TYPE_CURVE_TYPE, val))
  882. #endif /* GTK_TYPE_CURVE_TYPE */
  883.  
  884. #ifdef GTK_TYPE_DEBUG_FLAG
  885.   /* GFlags GtkDebugFlag */
  886. # define SvGtkDebugFlag(sv)    ((GtkDebugFlag)gperl_convert_flags (GTK_TYPE_DEBUG_FLAG, sv))
  887. # define newSVGtkDebugFlag(val)    (gperl_convert_back_flags (GTK_TYPE_DEBUG_FLAG, val))
  888. #endif /* GTK_TYPE_DEBUG_FLAG */
  889.  
  890. #ifdef GTK_TYPE_DELETE_TYPE
  891.   /* GEnum GtkDeleteType */
  892. # define SvGtkDeleteType(sv)    ((GtkDeleteType)gperl_convert_enum (GTK_TYPE_DELETE_TYPE, sv))
  893. # define newSVGtkDeleteType(val)    (gperl_convert_back_enum (GTK_TYPE_DELETE_TYPE, val))
  894. #endif /* GTK_TYPE_DELETE_TYPE */
  895.  
  896. #ifdef GTK_TYPE_DEST_DEFAULTS
  897.   /* GFlags GtkDestDefaults */
  898. # define SvGtkDestDefaults(sv)    ((GtkDestDefaults)gperl_convert_flags (GTK_TYPE_DEST_DEFAULTS, sv))
  899. # define newSVGtkDestDefaults(val)    (gperl_convert_back_flags (GTK_TYPE_DEST_DEFAULTS, val))
  900. #endif /* GTK_TYPE_DEST_DEFAULTS */
  901.  
  902. #ifdef GTK_TYPE_DIALOG_FLAGS
  903.   /* GFlags GtkDialogFlags */
  904. # define SvGtkDialogFlags(sv)    ((GtkDialogFlags)gperl_convert_flags (GTK_TYPE_DIALOG_FLAGS, sv))
  905. # define newSVGtkDialogFlags(val)    (gperl_convert_back_flags (GTK_TYPE_DIALOG_FLAGS, val))
  906. #endif /* GTK_TYPE_DIALOG_FLAGS */
  907.  
  908. #ifdef GTK_TYPE_DIALOG
  909.   /* GtkObject derivative GtkDialog */
  910. # define SvGtkDialog(sv)    ((GtkDialog*)gperl_get_object_check (sv, GTK_TYPE_DIALOG))
  911. # define newSVGtkDialog(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  912.   typedef GtkDialog GtkDialog_ornull;
  913. # define SvGtkDialog_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkDialog(sv) : NULL)
  914. # define newSVGtkDialog_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  915. #endif /* GTK_TYPE_DIALOG */
  916.  
  917. #ifdef GTK_TYPE_DIRECTION_TYPE
  918.   /* GEnum GtkDirectionType */
  919. # define SvGtkDirectionType(sv)    ((GtkDirectionType)gperl_convert_enum (GTK_TYPE_DIRECTION_TYPE, sv))
  920. # define newSVGtkDirectionType(val)    (gperl_convert_back_enum (GTK_TYPE_DIRECTION_TYPE, val))
  921. #endif /* GTK_TYPE_DIRECTION_TYPE */
  922.  
  923. #ifdef GTK_TYPE_DRAWING_AREA
  924.   /* GtkObject derivative GtkDrawingArea */
  925. # define SvGtkDrawingArea(sv)    ((GtkDrawingArea*)gperl_get_object_check (sv, GTK_TYPE_DRAWING_AREA))
  926. # define newSVGtkDrawingArea(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  927.   typedef GtkDrawingArea GtkDrawingArea_ornull;
  928. # define SvGtkDrawingArea_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkDrawingArea(sv) : NULL)
  929. # define newSVGtkDrawingArea_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  930. #endif /* GTK_TYPE_DRAWING_AREA */
  931.  
  932. #ifdef GTK_TYPE_EDITABLE
  933.   /* GInterface derivative GtkEditable */
  934. # define SvGtkEditable(sv)    ((GtkEditable*)gperl_get_object_check (sv, GTK_TYPE_EDITABLE))
  935. # define newSVGtkEditable(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  936.   typedef GtkEditable GtkEditable_ornull;
  937. # define SvGtkEditable_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkEditable(sv) : NULL)
  938. # define newSVGtkEditable_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  939. #endif /* GTK_TYPE_EDITABLE */
  940.  
  941. #ifdef GTK_TYPE_ENTRY
  942.   /* GtkObject derivative GtkEntry */
  943. # define SvGtkEntry(sv)    ((GtkEntry*)gperl_get_object_check (sv, GTK_TYPE_ENTRY))
  944. # define newSVGtkEntry(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  945.   typedef GtkEntry GtkEntry_ornull;
  946. # define SvGtkEntry_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkEntry(sv) : NULL)
  947. # define newSVGtkEntry_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  948. #endif /* GTK_TYPE_ENTRY */
  949.  
  950. #ifdef GTK_TYPE_EVENT_BOX
  951.   /* GtkObject derivative GtkEventBox */
  952. # define SvGtkEventBox(sv)    ((GtkEventBox*)gperl_get_object_check (sv, GTK_TYPE_EVENT_BOX))
  953. # define newSVGtkEventBox(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  954.   typedef GtkEventBox GtkEventBox_ornull;
  955. # define SvGtkEventBox_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkEventBox(sv) : NULL)
  956. # define newSVGtkEventBox_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  957. #endif /* GTK_TYPE_EVENT_BOX */
  958.  
  959. #ifdef GTK_TYPE_EXPANDER_STYLE
  960.   /* GEnum GtkExpanderStyle */
  961. # define SvGtkExpanderStyle(sv)    ((GtkExpanderStyle)gperl_convert_enum (GTK_TYPE_EXPANDER_STYLE, sv))
  962. # define newSVGtkExpanderStyle(val)    (gperl_convert_back_enum (GTK_TYPE_EXPANDER_STYLE, val))
  963. #endif /* GTK_TYPE_EXPANDER_STYLE */
  964.  
  965. #ifdef GTK_TYPE_FILE_SELECTION
  966.   /* GtkObject derivative GtkFileSelection */
  967. # define SvGtkFileSelection(sv)    ((GtkFileSelection*)gperl_get_object_check (sv, GTK_TYPE_FILE_SELECTION))
  968. # define newSVGtkFileSelection(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  969.   typedef GtkFileSelection GtkFileSelection_ornull;
  970. # define SvGtkFileSelection_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkFileSelection(sv) : NULL)
  971. # define newSVGtkFileSelection_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  972. #endif /* GTK_TYPE_FILE_SELECTION */
  973.  
  974. #ifdef GTK_TYPE_FIXED
  975.   /* GtkObject derivative GtkFixed */
  976. # define SvGtkFixed(sv)    ((GtkFixed*)gperl_get_object_check (sv, GTK_TYPE_FIXED))
  977. # define newSVGtkFixed(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  978.   typedef GtkFixed GtkFixed_ornull;
  979. # define SvGtkFixed_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkFixed(sv) : NULL)
  980. # define newSVGtkFixed_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  981. #endif /* GTK_TYPE_FIXED */
  982.  
  983. #ifdef GTK_TYPE_FONT_SELECTION_DIALOG
  984.   /* GtkObject derivative GtkFontSelectionDialog */
  985. # define SvGtkFontSelectionDialog(sv)    ((GtkFontSelectionDialog*)gperl_get_object_check (sv, GTK_TYPE_FONT_SELECTION_DIALOG))
  986. # define newSVGtkFontSelectionDialog(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  987.   typedef GtkFontSelectionDialog GtkFontSelectionDialog_ornull;
  988. # define SvGtkFontSelectionDialog_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkFontSelectionDialog(sv) : NULL)
  989. # define newSVGtkFontSelectionDialog_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  990. #endif /* GTK_TYPE_FONT_SELECTION_DIALOG */
  991.  
  992. #ifdef GTK_TYPE_FONT_SELECTION
  993.   /* GtkObject derivative GtkFontSelection */
  994. # define SvGtkFontSelection(sv)    ((GtkFontSelection*)gperl_get_object_check (sv, GTK_TYPE_FONT_SELECTION))
  995. # define newSVGtkFontSelection(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  996.   typedef GtkFontSelection GtkFontSelection_ornull;
  997. # define SvGtkFontSelection_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkFontSelection(sv) : NULL)
  998. # define newSVGtkFontSelection_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  999. #endif /* GTK_TYPE_FONT_SELECTION */
  1000.  
  1001. #ifdef GTK_TYPE_FRAME
  1002.   /* GtkObject derivative GtkFrame */
  1003. # define SvGtkFrame(sv)    ((GtkFrame*)gperl_get_object_check (sv, GTK_TYPE_FRAME))
  1004. # define newSVGtkFrame(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1005.   typedef GtkFrame GtkFrame_ornull;
  1006. # define SvGtkFrame_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkFrame(sv) : NULL)
  1007. # define newSVGtkFrame_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1008. #endif /* GTK_TYPE_FRAME */
  1009.  
  1010. #ifdef GTK_TYPE_GAMMA_CURVE
  1011.   /* GtkObject derivative GtkGammaCurve */
  1012. # define SvGtkGammaCurve(sv)    ((GtkGammaCurve*)gperl_get_object_check (sv, GTK_TYPE_GAMMA_CURVE))
  1013. # define newSVGtkGammaCurve(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1014.   typedef GtkGammaCurve GtkGammaCurve_ornull;
  1015. # define SvGtkGammaCurve_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkGammaCurve(sv) : NULL)
  1016. # define newSVGtkGammaCurve_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1017. #endif /* GTK_TYPE_GAMMA_CURVE */
  1018.  
  1019. #ifdef GTK_TYPE_HANDLE_BOX
  1020.   /* GtkObject derivative GtkHandleBox */
  1021. # define SvGtkHandleBox(sv)    ((GtkHandleBox*)gperl_get_object_check (sv, GTK_TYPE_HANDLE_BOX))
  1022. # define newSVGtkHandleBox(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1023.   typedef GtkHandleBox GtkHandleBox_ornull;
  1024. # define SvGtkHandleBox_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkHandleBox(sv) : NULL)
  1025. # define newSVGtkHandleBox_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1026. #endif /* GTK_TYPE_HANDLE_BOX */
  1027.  
  1028. #ifdef GTK_TYPE_HBOX
  1029.   /* GtkObject derivative GtkHBox */
  1030. # define SvGtkHBox(sv)    ((GtkHBox*)gperl_get_object_check (sv, GTK_TYPE_HBOX))
  1031. # define newSVGtkHBox(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1032.   typedef GtkHBox GtkHBox_ornull;
  1033. # define SvGtkHBox_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkHBox(sv) : NULL)
  1034. # define newSVGtkHBox_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1035. #endif /* GTK_TYPE_HBOX */
  1036.  
  1037. #ifdef GTK_TYPE_HBUTTON_BOX
  1038.   /* GtkObject derivative GtkHButtonBox */
  1039. # define SvGtkHButtonBox(sv)    ((GtkHButtonBox*)gperl_get_object_check (sv, GTK_TYPE_HBUTTON_BOX))
  1040. # define newSVGtkHButtonBox(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1041.   typedef GtkHButtonBox GtkHButtonBox_ornull;
  1042. # define SvGtkHButtonBox_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkHButtonBox(sv) : NULL)
  1043. # define newSVGtkHButtonBox_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1044. #endif /* GTK_TYPE_HBUTTON_BOX */
  1045.  
  1046. #ifdef GTK_TYPE_HPANED
  1047.   /* GtkObject derivative GtkHPaned */
  1048. # define SvGtkHPaned(sv)    ((GtkHPaned*)gperl_get_object_check (sv, GTK_TYPE_HPANED))
  1049. # define newSVGtkHPaned(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1050.   typedef GtkHPaned GtkHPaned_ornull;
  1051. # define SvGtkHPaned_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkHPaned(sv) : NULL)
  1052. # define newSVGtkHPaned_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1053. #endif /* GTK_TYPE_HPANED */
  1054.  
  1055. #ifdef GTK_TYPE_HRULER
  1056.   /* GtkObject derivative GtkHRuler */
  1057. # define SvGtkHRuler(sv)    ((GtkHRuler*)gperl_get_object_check (sv, GTK_TYPE_HRULER))
  1058. # define newSVGtkHRuler(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1059.   typedef GtkHRuler GtkHRuler_ornull;
  1060. # define SvGtkHRuler_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkHRuler(sv) : NULL)
  1061. # define newSVGtkHRuler_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1062. #endif /* GTK_TYPE_HRULER */
  1063.  
  1064. #ifdef GTK_TYPE_HSCALE
  1065.   /* GtkObject derivative GtkHScale */
  1066. # define SvGtkHScale(sv)    ((GtkHScale*)gperl_get_object_check (sv, GTK_TYPE_HSCALE))
  1067. # define newSVGtkHScale(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1068.   typedef GtkHScale GtkHScale_ornull;
  1069. # define SvGtkHScale_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkHScale(sv) : NULL)
  1070. # define newSVGtkHScale_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1071. #endif /* GTK_TYPE_HSCALE */
  1072.  
  1073. #ifdef GTK_TYPE_HSCROLLBAR
  1074.   /* GtkObject derivative GtkHScrollbar */
  1075. # define SvGtkHScrollbar(sv)    ((GtkHScrollbar*)gperl_get_object_check (sv, GTK_TYPE_HSCROLLBAR))
  1076. # define newSVGtkHScrollbar(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1077.   typedef GtkHScrollbar GtkHScrollbar_ornull;
  1078. # define SvGtkHScrollbar_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkHScrollbar(sv) : NULL)
  1079. # define newSVGtkHScrollbar_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1080. #endif /* GTK_TYPE_HSCROLLBAR */
  1081.  
  1082. #ifdef GTK_TYPE_HSEPARATOR
  1083.   /* GtkObject derivative GtkHSeparator */
  1084. # define SvGtkHSeparator(sv)    ((GtkHSeparator*)gperl_get_object_check (sv, GTK_TYPE_HSEPARATOR))
  1085. # define newSVGtkHSeparator(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1086.   typedef GtkHSeparator GtkHSeparator_ornull;
  1087. # define SvGtkHSeparator_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkHSeparator(sv) : NULL)
  1088. # define newSVGtkHSeparator_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1089. #endif /* GTK_TYPE_HSEPARATOR */
  1090.  
  1091. #ifdef GTK_TYPE_ICON_FACTORY
  1092.   /* GObject derivative GtkIconFactory */
  1093. # define SvGtkIconFactory(sv)    ((GtkIconFactory*)gperl_get_object_check (sv, GTK_TYPE_ICON_FACTORY))
  1094. # define newSVGtkIconFactory(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  1095.   typedef GtkIconFactory GtkIconFactory_ornull;
  1096. # define SvGtkIconFactory_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkIconFactory(sv) : NULL)
  1097. # define newSVGtkIconFactory_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  1098. typedef GtkIconFactory GtkIconFactory_noinc;
  1099. #define newSVGtkIconFactory_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  1100. typedef GtkIconFactory GtkIconFactory_noinc_ornull;
  1101. #define newSVGtkIconFactory_noinc_ornull(val)    ((val) ? newSVGtkIconFactory_noinc(val) : &PL_sv_undef)
  1102. #endif /* GTK_TYPE_ICON_FACTORY */
  1103.  
  1104. #ifdef GTK_TYPE_ICON_SET
  1105.   /* GBoxed GtkIconSet */
  1106.   typedef GtkIconSet GtkIconSet_ornull;
  1107. # define SvGtkIconSet(sv)    ((GtkIconSet *) gperl_get_boxed_check ((sv), GTK_TYPE_ICON_SET))
  1108. # define SvGtkIconSet_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkIconSet (sv) : NULL)
  1109.   typedef GtkIconSet GtkIconSet_own;
  1110.   typedef GtkIconSet GtkIconSet_copy;
  1111.   typedef GtkIconSet GtkIconSet_own_ornull;
  1112. # define newSVGtkIconSet(val)    (gperl_new_boxed ((gpointer) (val), GTK_TYPE_ICON_SET, FALSE))
  1113. # define newSVGtkIconSet_ornull(val)    ((val) ? newSVGtkIconSet(val) : &PL_sv_undef)
  1114. # define newSVGtkIconSet_own(val)    (gperl_new_boxed ((gpointer) (val), GTK_TYPE_ICON_SET, TRUE))
  1115. # define newSVGtkIconSet_copy(val)    (gperl_new_boxed_copy ((gpointer) (val), GTK_TYPE_ICON_SET))
  1116. # define newSVGtkIconSet_own_ornull(val)    ((val) ? newSVGtkIconSet_own(val) : &PL_sv_undef)
  1117. #endif /* GTK_TYPE_ICON_SET */
  1118.  
  1119. #ifdef GTK_TYPE_ICON_SIZE
  1120.   /* GEnum GtkIconSize */
  1121. # define SvGtkIconSize(sv)    ((GtkIconSize)gperl_convert_enum (GTK_TYPE_ICON_SIZE, sv))
  1122. # define newSVGtkIconSize(val)    (gperl_convert_back_enum (GTK_TYPE_ICON_SIZE, val))
  1123. #endif /* GTK_TYPE_ICON_SIZE */
  1124.  
  1125. #ifdef GTK_TYPE_ICON_SOURCE
  1126.   /* GBoxed GtkIconSource */
  1127.   typedef GtkIconSource GtkIconSource_ornull;
  1128. # define SvGtkIconSource(sv)    ((GtkIconSource *) gperl_get_boxed_check ((sv), GTK_TYPE_ICON_SOURCE))
  1129. # define SvGtkIconSource_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkIconSource (sv) : NULL)
  1130.   typedef GtkIconSource GtkIconSource_own;
  1131.   typedef GtkIconSource GtkIconSource_copy;
  1132.   typedef GtkIconSource GtkIconSource_own_ornull;
  1133. # define newSVGtkIconSource(val)    (gperl_new_boxed ((gpointer) (val), GTK_TYPE_ICON_SOURCE, FALSE))
  1134. # define newSVGtkIconSource_ornull(val)    ((val) ? newSVGtkIconSource(val) : &PL_sv_undef)
  1135. # define newSVGtkIconSource_own(val)    (gperl_new_boxed ((gpointer) (val), GTK_TYPE_ICON_SOURCE, TRUE))
  1136. # define newSVGtkIconSource_copy(val)    (gperl_new_boxed_copy ((gpointer) (val), GTK_TYPE_ICON_SOURCE))
  1137. # define newSVGtkIconSource_own_ornull(val)    ((val) ? newSVGtkIconSource_own(val) : &PL_sv_undef)
  1138. #endif /* GTK_TYPE_ICON_SOURCE */
  1139.  
  1140. #ifdef GTK_TYPE_IMAGE
  1141.   /* GtkObject derivative GtkImage */
  1142. # define SvGtkImage(sv)    ((GtkImage*)gperl_get_object_check (sv, GTK_TYPE_IMAGE))
  1143. # define newSVGtkImage(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1144.   typedef GtkImage GtkImage_ornull;
  1145. # define SvGtkImage_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkImage(sv) : NULL)
  1146. # define newSVGtkImage_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1147. #endif /* GTK_TYPE_IMAGE */
  1148.  
  1149. #ifdef GTK_TYPE_IMAGE_MENU_ITEM
  1150.   /* GtkObject derivative GtkImageMenuItem */
  1151. # define SvGtkImageMenuItem(sv)    ((GtkImageMenuItem*)gperl_get_object_check (sv, GTK_TYPE_IMAGE_MENU_ITEM))
  1152. # define newSVGtkImageMenuItem(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1153.   typedef GtkImageMenuItem GtkImageMenuItem_ornull;
  1154. # define SvGtkImageMenuItem_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkImageMenuItem(sv) : NULL)
  1155. # define newSVGtkImageMenuItem_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1156. #endif /* GTK_TYPE_IMAGE_MENU_ITEM */
  1157.  
  1158. #ifdef GTK_TYPE_IMAGE_TYPE
  1159.   /* GEnum GtkImageType */
  1160. # define SvGtkImageType(sv)    ((GtkImageType)gperl_convert_enum (GTK_TYPE_IMAGE_TYPE, sv))
  1161. # define newSVGtkImageType(val)    (gperl_convert_back_enum (GTK_TYPE_IMAGE_TYPE, val))
  1162. #endif /* GTK_TYPE_IMAGE_TYPE */
  1163.  
  1164. #ifdef GTK_TYPE_IM_CONTEXT
  1165.   /* GObject derivative GtkIMContext */
  1166. # define SvGtkIMContext(sv)    ((GtkIMContext*)gperl_get_object_check (sv, GTK_TYPE_IM_CONTEXT))
  1167. # define newSVGtkIMContext(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  1168.   typedef GtkIMContext GtkIMContext_ornull;
  1169. # define SvGtkIMContext_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkIMContext(sv) : NULL)
  1170. # define newSVGtkIMContext_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  1171. typedef GtkIMContext GtkIMContext_noinc;
  1172. #define newSVGtkIMContext_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  1173. typedef GtkIMContext GtkIMContext_noinc_ornull;
  1174. #define newSVGtkIMContext_noinc_ornull(val)    ((val) ? newSVGtkIMContext_noinc(val) : &PL_sv_undef)
  1175. #endif /* GTK_TYPE_IM_CONTEXT */
  1176.  
  1177. #ifdef GTK_TYPE_IM_CONTEXT_SIMPLE
  1178.   /* GObject derivative GtkIMContextSimple */
  1179. # define SvGtkIMContextSimple(sv)    ((GtkIMContextSimple*)gperl_get_object_check (sv, GTK_TYPE_IM_CONTEXT_SIMPLE))
  1180. # define newSVGtkIMContextSimple(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  1181.   typedef GtkIMContextSimple GtkIMContextSimple_ornull;
  1182. # define SvGtkIMContextSimple_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkIMContextSimple(sv) : NULL)
  1183. # define newSVGtkIMContextSimple_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  1184. typedef GtkIMContextSimple GtkIMContextSimple_noinc;
  1185. #define newSVGtkIMContextSimple_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  1186. typedef GtkIMContextSimple GtkIMContextSimple_noinc_ornull;
  1187. #define newSVGtkIMContextSimple_noinc_ornull(val)    ((val) ? newSVGtkIMContextSimple_noinc(val) : &PL_sv_undef)
  1188. #endif /* GTK_TYPE_IM_CONTEXT_SIMPLE */
  1189.  
  1190. #ifdef GTK_TYPE_IM_MULTICONTEXT
  1191.   /* GObject derivative GtkIMMulticontext */
  1192. # define SvGtkIMMulticontext(sv)    ((GtkIMMulticontext*)gperl_get_object_check (sv, GTK_TYPE_IM_MULTICONTEXT))
  1193. # define newSVGtkIMMulticontext(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  1194.   typedef GtkIMMulticontext GtkIMMulticontext_ornull;
  1195. # define SvGtkIMMulticontext_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkIMMulticontext(sv) : NULL)
  1196. # define newSVGtkIMMulticontext_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  1197. typedef GtkIMMulticontext GtkIMMulticontext_noinc;
  1198. #define newSVGtkIMMulticontext_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  1199. typedef GtkIMMulticontext GtkIMMulticontext_noinc_ornull;
  1200. #define newSVGtkIMMulticontext_noinc_ornull(val)    ((val) ? newSVGtkIMMulticontext_noinc(val) : &PL_sv_undef)
  1201. #endif /* GTK_TYPE_IM_MULTICONTEXT */
  1202.  
  1203. #ifdef GTK_TYPE_IM_PREEDIT_STYLE
  1204.   /* GEnum GtkIMPreeditStyle */
  1205. # define SvGtkIMPreeditStyle(sv)    ((GtkIMPreeditStyle)gperl_convert_enum (GTK_TYPE_IM_PREEDIT_STYLE, sv))
  1206. # define newSVGtkIMPreeditStyle(val)    (gperl_convert_back_enum (GTK_TYPE_IM_PREEDIT_STYLE, val))
  1207. #endif /* GTK_TYPE_IM_PREEDIT_STYLE */
  1208.  
  1209. #ifdef GTK_TYPE_IM_STATUS_STYLE
  1210.   /* GEnum GtkIMStatusStyle */
  1211. # define SvGtkIMStatusStyle(sv)    ((GtkIMStatusStyle)gperl_convert_enum (GTK_TYPE_IM_STATUS_STYLE, sv))
  1212. # define newSVGtkIMStatusStyle(val)    (gperl_convert_back_enum (GTK_TYPE_IM_STATUS_STYLE, val))
  1213. #endif /* GTK_TYPE_IM_STATUS_STYLE */
  1214.  
  1215. #ifdef GTK_TYPE_INPUT_DIALOG
  1216.   /* GtkObject derivative GtkInputDialog */
  1217. # define SvGtkInputDialog(sv)    ((GtkInputDialog*)gperl_get_object_check (sv, GTK_TYPE_INPUT_DIALOG))
  1218. # define newSVGtkInputDialog(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1219.   typedef GtkInputDialog GtkInputDialog_ornull;
  1220. # define SvGtkInputDialog_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkInputDialog(sv) : NULL)
  1221. # define newSVGtkInputDialog_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1222. #endif /* GTK_TYPE_INPUT_DIALOG */
  1223.  
  1224. #ifdef GTK_TYPE_INVISIBLE
  1225.   /* GtkObject derivative GtkInvisible */
  1226. # define SvGtkInvisible(sv)    ((GtkInvisible*)gperl_get_object_check (sv, GTK_TYPE_INVISIBLE))
  1227. # define newSVGtkInvisible(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1228.   typedef GtkInvisible GtkInvisible_ornull;
  1229. # define SvGtkInvisible_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkInvisible(sv) : NULL)
  1230. # define newSVGtkInvisible_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1231. #endif /* GTK_TYPE_INVISIBLE */
  1232.  
  1233. #ifdef GTK_TYPE_ITEM_FACTORY
  1234.   /* GtkObject derivative GtkItemFactory */
  1235. # define SvGtkItemFactory(sv)    ((GtkItemFactory*)gperl_get_object_check (sv, GTK_TYPE_ITEM_FACTORY))
  1236. # define newSVGtkItemFactory(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1237.   typedef GtkItemFactory GtkItemFactory_ornull;
  1238. # define SvGtkItemFactory_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkItemFactory(sv) : NULL)
  1239. # define newSVGtkItemFactory_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1240. #endif /* GTK_TYPE_ITEM_FACTORY */
  1241.  
  1242. #ifdef GTK_TYPE_ITEM
  1243.   /* GtkObject derivative GtkItem */
  1244. # define SvGtkItem(sv)    ((GtkItem*)gperl_get_object_check (sv, GTK_TYPE_ITEM))
  1245. # define newSVGtkItem(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1246.   typedef GtkItem GtkItem_ornull;
  1247. # define SvGtkItem_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkItem(sv) : NULL)
  1248. # define newSVGtkItem_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1249. #endif /* GTK_TYPE_ITEM */
  1250.  
  1251. #ifdef GTK_TYPE_JUSTIFICATION
  1252.   /* GEnum GtkJustification */
  1253. # define SvGtkJustification(sv)    ((GtkJustification)gperl_convert_enum (GTK_TYPE_JUSTIFICATION, sv))
  1254. # define newSVGtkJustification(val)    (gperl_convert_back_enum (GTK_TYPE_JUSTIFICATION, val))
  1255. #endif /* GTK_TYPE_JUSTIFICATION */
  1256.  
  1257. #ifdef GTK_TYPE_LABEL
  1258.   /* GtkObject derivative GtkLabel */
  1259. # define SvGtkLabel(sv)    ((GtkLabel*)gperl_get_object_check (sv, GTK_TYPE_LABEL))
  1260. # define newSVGtkLabel(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1261.   typedef GtkLabel GtkLabel_ornull;
  1262. # define SvGtkLabel_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkLabel(sv) : NULL)
  1263. # define newSVGtkLabel_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1264. #endif /* GTK_TYPE_LABEL */
  1265.  
  1266. #ifdef GTK_TYPE_LAYOUT
  1267.   /* GtkObject derivative GtkLayout */
  1268. # define SvGtkLayout(sv)    ((GtkLayout*)gperl_get_object_check (sv, GTK_TYPE_LAYOUT))
  1269. # define newSVGtkLayout(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1270.   typedef GtkLayout GtkLayout_ornull;
  1271. # define SvGtkLayout_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkLayout(sv) : NULL)
  1272. # define newSVGtkLayout_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1273. #endif /* GTK_TYPE_LAYOUT */
  1274.  
  1275. #ifdef GTK_TYPE_LIST
  1276.   /* GtkObject derivative GtkList */
  1277. # define SvGtkList(sv)    ((GtkList*)gperl_get_object_check (sv, GTK_TYPE_LIST))
  1278. # define newSVGtkList(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1279.   typedef GtkList GtkList_ornull;
  1280. # define SvGtkList_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkList(sv) : NULL)
  1281. # define newSVGtkList_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1282. #endif /* GTK_TYPE_LIST */
  1283.  
  1284. #ifdef GTK_TYPE_LIST_ITEM
  1285.   /* GtkObject derivative GtkListItem */
  1286. # define SvGtkListItem(sv)    ((GtkListItem*)gperl_get_object_check (sv, GTK_TYPE_LIST_ITEM))
  1287. # define newSVGtkListItem(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1288.   typedef GtkListItem GtkListItem_ornull;
  1289. # define SvGtkListItem_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkListItem(sv) : NULL)
  1290. # define newSVGtkListItem_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1291. #endif /* GTK_TYPE_LIST_ITEM */
  1292.  
  1293. #ifdef GTK_TYPE_LIST_STORE
  1294.   /* GObject derivative GtkListStore */
  1295. # define SvGtkListStore(sv)    ((GtkListStore*)gperl_get_object_check (sv, GTK_TYPE_LIST_STORE))
  1296. # define newSVGtkListStore(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  1297.   typedef GtkListStore GtkListStore_ornull;
  1298. # define SvGtkListStore_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkListStore(sv) : NULL)
  1299. # define newSVGtkListStore_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  1300. typedef GtkListStore GtkListStore_noinc;
  1301. #define newSVGtkListStore_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  1302. typedef GtkListStore GtkListStore_noinc_ornull;
  1303. #define newSVGtkListStore_noinc_ornull(val)    ((val) ? newSVGtkListStore_noinc(val) : &PL_sv_undef)
  1304. #endif /* GTK_TYPE_LIST_STORE */
  1305.  
  1306. #ifdef GTK_TYPE_MATCH_TYPE
  1307.   /* GEnum GtkMatchType */
  1308. # define SvGtkMatchType(sv)    ((GtkMatchType)gperl_convert_enum (GTK_TYPE_MATCH_TYPE, sv))
  1309. # define newSVGtkMatchType(val)    (gperl_convert_back_enum (GTK_TYPE_MATCH_TYPE, val))
  1310. #endif /* GTK_TYPE_MATCH_TYPE */
  1311.  
  1312. #ifdef GTK_TYPE_MENU_BAR
  1313.   /* GtkObject derivative GtkMenuBar */
  1314. # define SvGtkMenuBar(sv)    ((GtkMenuBar*)gperl_get_object_check (sv, GTK_TYPE_MENU_BAR))
  1315. # define newSVGtkMenuBar(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1316.   typedef GtkMenuBar GtkMenuBar_ornull;
  1317. # define SvGtkMenuBar_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkMenuBar(sv) : NULL)
  1318. # define newSVGtkMenuBar_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1319. #endif /* GTK_TYPE_MENU_BAR */
  1320.  
  1321. #ifdef GTK_TYPE_MENU_DIRECTION_TYPE
  1322.   /* GEnum GtkMenuDirectionType */
  1323. # define SvGtkMenuDirectionType(sv)    ((GtkMenuDirectionType)gperl_convert_enum (GTK_TYPE_MENU_DIRECTION_TYPE, sv))
  1324. # define newSVGtkMenuDirectionType(val)    (gperl_convert_back_enum (GTK_TYPE_MENU_DIRECTION_TYPE, val))
  1325. #endif /* GTK_TYPE_MENU_DIRECTION_TYPE */
  1326.  
  1327. #ifdef GTK_TYPE_MENU
  1328.   /* GtkObject derivative GtkMenu */
  1329. # define SvGtkMenu(sv)    ((GtkMenu*)gperl_get_object_check (sv, GTK_TYPE_MENU))
  1330. # define newSVGtkMenu(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1331.   typedef GtkMenu GtkMenu_ornull;
  1332. # define SvGtkMenu_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkMenu(sv) : NULL)
  1333. # define newSVGtkMenu_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1334. #endif /* GTK_TYPE_MENU */
  1335.  
  1336. #ifdef GTK_TYPE_MENU_ITEM
  1337.   /* GtkObject derivative GtkMenuItem */
  1338. # define SvGtkMenuItem(sv)    ((GtkMenuItem*)gperl_get_object_check (sv, GTK_TYPE_MENU_ITEM))
  1339. # define newSVGtkMenuItem(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1340.   typedef GtkMenuItem GtkMenuItem_ornull;
  1341. # define SvGtkMenuItem_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkMenuItem(sv) : NULL)
  1342. # define newSVGtkMenuItem_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1343. #endif /* GTK_TYPE_MENU_ITEM */
  1344.  
  1345. #ifdef GTK_TYPE_MENU_SHELL
  1346.   /* GtkObject derivative GtkMenuShell */
  1347. # define SvGtkMenuShell(sv)    ((GtkMenuShell*)gperl_get_object_check (sv, GTK_TYPE_MENU_SHELL))
  1348. # define newSVGtkMenuShell(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1349.   typedef GtkMenuShell GtkMenuShell_ornull;
  1350. # define SvGtkMenuShell_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkMenuShell(sv) : NULL)
  1351. # define newSVGtkMenuShell_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1352. #endif /* GTK_TYPE_MENU_SHELL */
  1353.  
  1354. #ifdef GTK_TYPE_MESSAGE_DIALOG
  1355.   /* GtkObject derivative GtkMessageDialog */
  1356. # define SvGtkMessageDialog(sv)    ((GtkMessageDialog*)gperl_get_object_check (sv, GTK_TYPE_MESSAGE_DIALOG))
  1357. # define newSVGtkMessageDialog(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1358.   typedef GtkMessageDialog GtkMessageDialog_ornull;
  1359. # define SvGtkMessageDialog_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkMessageDialog(sv) : NULL)
  1360. # define newSVGtkMessageDialog_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1361. #endif /* GTK_TYPE_MESSAGE_DIALOG */
  1362.  
  1363. #ifdef GTK_TYPE_MESSAGE_TYPE
  1364.   /* GEnum GtkMessageType */
  1365. # define SvGtkMessageType(sv)    ((GtkMessageType)gperl_convert_enum (GTK_TYPE_MESSAGE_TYPE, sv))
  1366. # define newSVGtkMessageType(val)    (gperl_convert_back_enum (GTK_TYPE_MESSAGE_TYPE, val))
  1367. #endif /* GTK_TYPE_MESSAGE_TYPE */
  1368.  
  1369. #ifdef GTK_TYPE_METRIC_TYPE
  1370.   /* GEnum GtkMetricType */
  1371. # define SvGtkMetricType(sv)    ((GtkMetricType)gperl_convert_enum (GTK_TYPE_METRIC_TYPE, sv))
  1372. # define newSVGtkMetricType(val)    (gperl_convert_back_enum (GTK_TYPE_METRIC_TYPE, val))
  1373. #endif /* GTK_TYPE_METRIC_TYPE */
  1374.  
  1375. #ifdef GTK_TYPE_MISC
  1376.   /* GtkObject derivative GtkMisc */
  1377. # define SvGtkMisc(sv)    ((GtkMisc*)gperl_get_object_check (sv, GTK_TYPE_MISC))
  1378. # define newSVGtkMisc(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1379.   typedef GtkMisc GtkMisc_ornull;
  1380. # define SvGtkMisc_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkMisc(sv) : NULL)
  1381. # define newSVGtkMisc_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1382. #endif /* GTK_TYPE_MISC */
  1383.  
  1384. #ifdef GTK_TYPE_MOVEMENT_STEP
  1385.   /* GEnum GtkMovementStep */
  1386. # define SvGtkMovementStep(sv)    ((GtkMovementStep)gperl_convert_enum (GTK_TYPE_MOVEMENT_STEP, sv))
  1387. # define newSVGtkMovementStep(val)    (gperl_convert_back_enum (GTK_TYPE_MOVEMENT_STEP, val))
  1388. #endif /* GTK_TYPE_MOVEMENT_STEP */
  1389.  
  1390. #ifdef GTK_TYPE_NOTEBOOK
  1391.   /* GtkObject derivative GtkNotebook */
  1392. # define SvGtkNotebook(sv)    ((GtkNotebook*)gperl_get_object_check (sv, GTK_TYPE_NOTEBOOK))
  1393. # define newSVGtkNotebook(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1394.   typedef GtkNotebook GtkNotebook_ornull;
  1395. # define SvGtkNotebook_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkNotebook(sv) : NULL)
  1396. # define newSVGtkNotebook_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1397. #endif /* GTK_TYPE_NOTEBOOK */
  1398.  
  1399. #ifdef GTK_TYPE_NOTEBOOK_TAB
  1400.   /* GEnum GtkNotebookTab */
  1401. # define SvGtkNotebookTab(sv)    ((GtkNotebookTab)gperl_convert_enum (GTK_TYPE_NOTEBOOK_TAB, sv))
  1402. # define newSVGtkNotebookTab(val)    (gperl_convert_back_enum (GTK_TYPE_NOTEBOOK_TAB, val))
  1403. #endif /* GTK_TYPE_NOTEBOOK_TAB */
  1404.  
  1405. #ifdef GTK_TYPE_OBJECT_FLAGS
  1406.   /* GFlags GtkObjectFlags */
  1407. # define SvGtkObjectFlags(sv)    ((GtkObjectFlags)gperl_convert_flags (GTK_TYPE_OBJECT_FLAGS, sv))
  1408. # define newSVGtkObjectFlags(val)    (gperl_convert_back_flags (GTK_TYPE_OBJECT_FLAGS, val))
  1409. #endif /* GTK_TYPE_OBJECT_FLAGS */
  1410.  
  1411. #ifdef GTK_TYPE_OBJECT
  1412.   /* GtkObject derivative GtkObject */
  1413. # define SvGtkObject(sv)    ((GtkObject*)gperl_get_object_check (sv, GTK_TYPE_OBJECT))
  1414. # define newSVGtkObject(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1415.   typedef GtkObject GtkObject_ornull;
  1416. # define SvGtkObject_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkObject(sv) : NULL)
  1417. # define newSVGtkObject_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1418. #endif /* GTK_TYPE_OBJECT */
  1419.  
  1420. #ifdef GTK_TYPE_OPTION_MENU
  1421.   /* GtkObject derivative GtkOptionMenu */
  1422. # define SvGtkOptionMenu(sv)    ((GtkOptionMenu*)gperl_get_object_check (sv, GTK_TYPE_OPTION_MENU))
  1423. # define newSVGtkOptionMenu(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1424.   typedef GtkOptionMenu GtkOptionMenu_ornull;
  1425. # define SvGtkOptionMenu_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkOptionMenu(sv) : NULL)
  1426. # define newSVGtkOptionMenu_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1427. #endif /* GTK_TYPE_OPTION_MENU */
  1428.  
  1429. #ifdef GTK_TYPE_ORIENTATION
  1430.   /* GEnum GtkOrientation */
  1431. # define SvGtkOrientation(sv)    ((GtkOrientation)gperl_convert_enum (GTK_TYPE_ORIENTATION, sv))
  1432. # define newSVGtkOrientation(val)    (gperl_convert_back_enum (GTK_TYPE_ORIENTATION, val))
  1433. #endif /* GTK_TYPE_ORIENTATION */
  1434.  
  1435. #ifdef GTK_TYPE_PACK_TYPE
  1436.   /* GEnum GtkPackType */
  1437. # define SvGtkPackType(sv)    ((GtkPackType)gperl_convert_enum (GTK_TYPE_PACK_TYPE, sv))
  1438. # define newSVGtkPackType(val)    (gperl_convert_back_enum (GTK_TYPE_PACK_TYPE, val))
  1439. #endif /* GTK_TYPE_PACK_TYPE */
  1440.  
  1441. #ifdef GTK_TYPE_PANED
  1442.   /* GtkObject derivative GtkPaned */
  1443. # define SvGtkPaned(sv)    ((GtkPaned*)gperl_get_object_check (sv, GTK_TYPE_PANED))
  1444. # define newSVGtkPaned(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1445.   typedef GtkPaned GtkPaned_ornull;
  1446. # define SvGtkPaned_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkPaned(sv) : NULL)
  1447. # define newSVGtkPaned_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1448. #endif /* GTK_TYPE_PANED */
  1449.  
  1450. #ifdef GTK_TYPE_PATH_PRIORITY_TYPE
  1451.   /* GEnum GtkPathPriorityType */
  1452. # define SvGtkPathPriorityType(sv)    ((GtkPathPriorityType)gperl_convert_enum (GTK_TYPE_PATH_PRIORITY_TYPE, sv))
  1453. # define newSVGtkPathPriorityType(val)    (gperl_convert_back_enum (GTK_TYPE_PATH_PRIORITY_TYPE, val))
  1454. #endif /* GTK_TYPE_PATH_PRIORITY_TYPE */
  1455.  
  1456. #ifdef GTK_TYPE_PATH_TYPE
  1457.   /* GEnum GtkPathType */
  1458. # define SvGtkPathType(sv)    ((GtkPathType)gperl_convert_enum (GTK_TYPE_PATH_TYPE, sv))
  1459. # define newSVGtkPathType(val)    (gperl_convert_back_enum (GTK_TYPE_PATH_TYPE, val))
  1460. #endif /* GTK_TYPE_PATH_TYPE */
  1461.  
  1462. #ifdef GTK_TYPE_PLUG
  1463.   /* GtkObject derivative GtkPlug */
  1464. # define SvGtkPlug(sv)    ((GtkPlug*)gperl_get_object_check (sv, GTK_TYPE_PLUG))
  1465. # define newSVGtkPlug(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1466.   typedef GtkPlug GtkPlug_ornull;
  1467. # define SvGtkPlug_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkPlug(sv) : NULL)
  1468. # define newSVGtkPlug_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1469. #endif /* GTK_TYPE_PLUG */
  1470.  
  1471. #ifdef GTK_TYPE_POLICY_TYPE
  1472.   /* GEnum GtkPolicyType */
  1473. # define SvGtkPolicyType(sv)    ((GtkPolicyType)gperl_convert_enum (GTK_TYPE_POLICY_TYPE, sv))
  1474. # define newSVGtkPolicyType(val)    (gperl_convert_back_enum (GTK_TYPE_POLICY_TYPE, val))
  1475. #endif /* GTK_TYPE_POLICY_TYPE */
  1476.  
  1477. #ifdef GTK_TYPE_POSITION_TYPE
  1478.   /* GEnum GtkPositionType */
  1479. # define SvGtkPositionType(sv)    ((GtkPositionType)gperl_convert_enum (GTK_TYPE_POSITION_TYPE, sv))
  1480. # define newSVGtkPositionType(val)    (gperl_convert_back_enum (GTK_TYPE_POSITION_TYPE, val))
  1481. #endif /* GTK_TYPE_POSITION_TYPE */
  1482.  
  1483. #ifdef GTK_TYPE_PREVIEW_TYPE
  1484.   /* GEnum GtkPreviewType */
  1485. # define SvGtkPreviewType(sv)    ((GtkPreviewType)gperl_convert_enum (GTK_TYPE_PREVIEW_TYPE, sv))
  1486. # define newSVGtkPreviewType(val)    (gperl_convert_back_enum (GTK_TYPE_PREVIEW_TYPE, val))
  1487. #endif /* GTK_TYPE_PREVIEW_TYPE */
  1488.  
  1489. #ifdef GTK_TYPE_PRIVATE_FLAGS
  1490.   /* GFlags GtkPrivateFlags */
  1491. # define SvGtkPrivateFlags(sv)    ((GtkPrivateFlags)gperl_convert_flags (GTK_TYPE_PRIVATE_FLAGS, sv))
  1492. # define newSVGtkPrivateFlags(val)    (gperl_convert_back_flags (GTK_TYPE_PRIVATE_FLAGS, val))
  1493. #endif /* GTK_TYPE_PRIVATE_FLAGS */
  1494.  
  1495. #ifdef GTK_TYPE_PROGRESS_BAR
  1496.   /* GtkObject derivative GtkProgressBar */
  1497. # define SvGtkProgressBar(sv)    ((GtkProgressBar*)gperl_get_object_check (sv, GTK_TYPE_PROGRESS_BAR))
  1498. # define newSVGtkProgressBar(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1499.   typedef GtkProgressBar GtkProgressBar_ornull;
  1500. # define SvGtkProgressBar_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkProgressBar(sv) : NULL)
  1501. # define newSVGtkProgressBar_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1502. #endif /* GTK_TYPE_PROGRESS_BAR */
  1503.  
  1504. #ifdef GTK_TYPE_PROGRESS_BAR_ORIENTATION
  1505.   /* GEnum GtkProgressBarOrientation */
  1506. # define SvGtkProgressBarOrientation(sv)    ((GtkProgressBarOrientation)gperl_convert_enum (GTK_TYPE_PROGRESS_BAR_ORIENTATION, sv))
  1507. # define newSVGtkProgressBarOrientation(val)    (gperl_convert_back_enum (GTK_TYPE_PROGRESS_BAR_ORIENTATION, val))
  1508. #endif /* GTK_TYPE_PROGRESS_BAR_ORIENTATION */
  1509.  
  1510. #ifdef GTK_TYPE_PROGRESS_BAR_STYLE
  1511.   /* GEnum GtkProgressBarStyle */
  1512. # define SvGtkProgressBarStyle(sv)    ((GtkProgressBarStyle)gperl_convert_enum (GTK_TYPE_PROGRESS_BAR_STYLE, sv))
  1513. # define newSVGtkProgressBarStyle(val)    (gperl_convert_back_enum (GTK_TYPE_PROGRESS_BAR_STYLE, val))
  1514. #endif /* GTK_TYPE_PROGRESS_BAR_STYLE */
  1515.  
  1516. #ifdef GTK_TYPE_RADIO_BUTTON
  1517.   /* GtkObject derivative GtkRadioButton */
  1518. # define SvGtkRadioButton(sv)    ((GtkRadioButton*)gperl_get_object_check (sv, GTK_TYPE_RADIO_BUTTON))
  1519. # define newSVGtkRadioButton(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1520.   typedef GtkRadioButton GtkRadioButton_ornull;
  1521. # define SvGtkRadioButton_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkRadioButton(sv) : NULL)
  1522. # define newSVGtkRadioButton_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1523. #endif /* GTK_TYPE_RADIO_BUTTON */
  1524.  
  1525. #ifdef GTK_TYPE_RADIO_MENU_ITEM
  1526.   /* GtkObject derivative GtkRadioMenuItem */
  1527. # define SvGtkRadioMenuItem(sv)    ((GtkRadioMenuItem*)gperl_get_object_check (sv, GTK_TYPE_RADIO_MENU_ITEM))
  1528. # define newSVGtkRadioMenuItem(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1529.   typedef GtkRadioMenuItem GtkRadioMenuItem_ornull;
  1530. # define SvGtkRadioMenuItem_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkRadioMenuItem(sv) : NULL)
  1531. # define newSVGtkRadioMenuItem_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1532. #endif /* GTK_TYPE_RADIO_MENU_ITEM */
  1533.  
  1534. #ifdef GTK_TYPE_RANGE
  1535.   /* GtkObject derivative GtkRange */
  1536. # define SvGtkRange(sv)    ((GtkRange*)gperl_get_object_check (sv, GTK_TYPE_RANGE))
  1537. # define newSVGtkRange(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1538.   typedef GtkRange GtkRange_ornull;
  1539. # define SvGtkRange_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkRange(sv) : NULL)
  1540. # define newSVGtkRange_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1541. #endif /* GTK_TYPE_RANGE */
  1542.  
  1543. #ifdef GTK_TYPE_RC_FLAGS
  1544.   /* GFlags GtkRcFlags */
  1545. # define SvGtkRcFlags(sv)    ((GtkRcFlags)gperl_convert_flags (GTK_TYPE_RC_FLAGS, sv))
  1546. # define newSVGtkRcFlags(val)    (gperl_convert_back_flags (GTK_TYPE_RC_FLAGS, val))
  1547. #endif /* GTK_TYPE_RC_FLAGS */
  1548.  
  1549. #ifdef GTK_TYPE_RC_STYLE
  1550.   /* GObject derivative GtkRcStyle */
  1551. # define SvGtkRcStyle(sv)    ((GtkRcStyle*)gperl_get_object_check (sv, GTK_TYPE_RC_STYLE))
  1552. # define newSVGtkRcStyle(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  1553.   typedef GtkRcStyle GtkRcStyle_ornull;
  1554. # define SvGtkRcStyle_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkRcStyle(sv) : NULL)
  1555. # define newSVGtkRcStyle_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  1556. typedef GtkRcStyle GtkRcStyle_noinc;
  1557. #define newSVGtkRcStyle_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  1558. typedef GtkRcStyle GtkRcStyle_noinc_ornull;
  1559. #define newSVGtkRcStyle_noinc_ornull(val)    ((val) ? newSVGtkRcStyle_noinc(val) : &PL_sv_undef)
  1560. #endif /* GTK_TYPE_RC_STYLE */
  1561.  
  1562. #ifdef GTK_TYPE_RC_TOKEN_TYPE
  1563.   /* GEnum GtkRcTokenType */
  1564. # define SvGtkRcTokenType(sv)    ((GtkRcTokenType)gperl_convert_enum (GTK_TYPE_RC_TOKEN_TYPE, sv))
  1565. # define newSVGtkRcTokenType(val)    (gperl_convert_back_enum (GTK_TYPE_RC_TOKEN_TYPE, val))
  1566. #endif /* GTK_TYPE_RC_TOKEN_TYPE */
  1567.  
  1568. #ifdef GTK_TYPE_RELIEF_STYLE
  1569.   /* GEnum GtkReliefStyle */
  1570. # define SvGtkReliefStyle(sv)    ((GtkReliefStyle)gperl_convert_enum (GTK_TYPE_RELIEF_STYLE, sv))
  1571. # define newSVGtkReliefStyle(val)    (gperl_convert_back_enum (GTK_TYPE_RELIEF_STYLE, val))
  1572. #endif /* GTK_TYPE_RELIEF_STYLE */
  1573.  
  1574. #ifdef GTK_TYPE_REQUISITION
  1575.   /* GBoxed GtkRequisition */
  1576.   typedef GtkRequisition GtkRequisition_ornull;
  1577. # define SvGtkRequisition(sv)    ((GtkRequisition *) gperl_get_boxed_check ((sv), GTK_TYPE_REQUISITION))
  1578. # define SvGtkRequisition_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkRequisition (sv) : NULL)
  1579.   typedef GtkRequisition GtkRequisition_own;
  1580.   typedef GtkRequisition GtkRequisition_copy;
  1581.   typedef GtkRequisition GtkRequisition_own_ornull;
  1582. # define newSVGtkRequisition(val)    (gperl_new_boxed ((gpointer) (val), GTK_TYPE_REQUISITION, FALSE))
  1583. # define newSVGtkRequisition_ornull(val)    ((val) ? newSVGtkRequisition(val) : &PL_sv_undef)
  1584. # define newSVGtkRequisition_own(val)    (gperl_new_boxed ((gpointer) (val), GTK_TYPE_REQUISITION, TRUE))
  1585. # define newSVGtkRequisition_copy(val)    (gperl_new_boxed_copy ((gpointer) (val), GTK_TYPE_REQUISITION))
  1586. # define newSVGtkRequisition_own_ornull(val)    ((val) ? newSVGtkRequisition_own(val) : &PL_sv_undef)
  1587. #endif /* GTK_TYPE_REQUISITION */
  1588.  
  1589. #ifdef GTK_TYPE_RESIZE_MODE
  1590.   /* GEnum GtkResizeMode */
  1591. # define SvGtkResizeMode(sv)    ((GtkResizeMode)gperl_convert_enum (GTK_TYPE_RESIZE_MODE, sv))
  1592. # define newSVGtkResizeMode(val)    (gperl_convert_back_enum (GTK_TYPE_RESIZE_MODE, val))
  1593. #endif /* GTK_TYPE_RESIZE_MODE */
  1594.  
  1595. #ifdef GTK_TYPE_RESPONSE_TYPE
  1596.   /* GEnum GtkResponseType */
  1597. # define SvGtkResponseType(sv)    ((GtkResponseType)gperl_convert_enum (GTK_TYPE_RESPONSE_TYPE, sv))
  1598. # define newSVGtkResponseType(val)    (gperl_convert_back_enum (GTK_TYPE_RESPONSE_TYPE, val))
  1599. #endif /* GTK_TYPE_RESPONSE_TYPE */
  1600.  
  1601. #ifdef GTK_TYPE_RULER
  1602.   /* GtkObject derivative GtkRuler */
  1603. # define SvGtkRuler(sv)    ((GtkRuler*)gperl_get_object_check (sv, GTK_TYPE_RULER))
  1604. # define newSVGtkRuler(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1605.   typedef GtkRuler GtkRuler_ornull;
  1606. # define SvGtkRuler_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkRuler(sv) : NULL)
  1607. # define newSVGtkRuler_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1608. #endif /* GTK_TYPE_RULER */
  1609.  
  1610. #ifdef GTK_TYPE_SCALE
  1611.   /* GtkObject derivative GtkScale */
  1612. # define SvGtkScale(sv)    ((GtkScale*)gperl_get_object_check (sv, GTK_TYPE_SCALE))
  1613. # define newSVGtkScale(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1614.   typedef GtkScale GtkScale_ornull;
  1615. # define SvGtkScale_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkScale(sv) : NULL)
  1616. # define newSVGtkScale_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1617. #endif /* GTK_TYPE_SCALE */
  1618.  
  1619. #ifdef GTK_TYPE_SCROLLBAR
  1620.   /* GtkObject derivative GtkScrollbar */
  1621. # define SvGtkScrollbar(sv)    ((GtkScrollbar*)gperl_get_object_check (sv, GTK_TYPE_SCROLLBAR))
  1622. # define newSVGtkScrollbar(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1623.   typedef GtkScrollbar GtkScrollbar_ornull;
  1624. # define SvGtkScrollbar_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkScrollbar(sv) : NULL)
  1625. # define newSVGtkScrollbar_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1626. #endif /* GTK_TYPE_SCROLLBAR */
  1627.  
  1628. #ifdef GTK_TYPE_SCROLLED_WINDOW
  1629.   /* GtkObject derivative GtkScrolledWindow */
  1630. # define SvGtkScrolledWindow(sv)    ((GtkScrolledWindow*)gperl_get_object_check (sv, GTK_TYPE_SCROLLED_WINDOW))
  1631. # define newSVGtkScrolledWindow(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1632.   typedef GtkScrolledWindow GtkScrolledWindow_ornull;
  1633. # define SvGtkScrolledWindow_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkScrolledWindow(sv) : NULL)
  1634. # define newSVGtkScrolledWindow_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1635. #endif /* GTK_TYPE_SCROLLED_WINDOW */
  1636.  
  1637. #ifdef GTK_TYPE_SCROLL_TYPE
  1638.   /* GEnum GtkScrollType */
  1639. # define SvGtkScrollType(sv)    ((GtkScrollType)gperl_convert_enum (GTK_TYPE_SCROLL_TYPE, sv))
  1640. # define newSVGtkScrollType(val)    (gperl_convert_back_enum (GTK_TYPE_SCROLL_TYPE, val))
  1641. #endif /* GTK_TYPE_SCROLL_TYPE */
  1642.  
  1643. #ifdef GTK_TYPE_SELECTION_DATA
  1644.   /* GBoxed GtkSelectionData */
  1645.   typedef GtkSelectionData GtkSelectionData_ornull;
  1646. # define SvGtkSelectionData(sv)    ((GtkSelectionData *) gperl_get_boxed_check ((sv), GTK_TYPE_SELECTION_DATA))
  1647. # define SvGtkSelectionData_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkSelectionData (sv) : NULL)
  1648.   typedef GtkSelectionData GtkSelectionData_own;
  1649.   typedef GtkSelectionData GtkSelectionData_copy;
  1650.   typedef GtkSelectionData GtkSelectionData_own_ornull;
  1651. # define newSVGtkSelectionData(val)    (gperl_new_boxed ((gpointer) (val), GTK_TYPE_SELECTION_DATA, FALSE))
  1652. # define newSVGtkSelectionData_ornull(val)    ((val) ? newSVGtkSelectionData(val) : &PL_sv_undef)
  1653. # define newSVGtkSelectionData_own(val)    (gperl_new_boxed ((gpointer) (val), GTK_TYPE_SELECTION_DATA, TRUE))
  1654. # define newSVGtkSelectionData_copy(val)    (gperl_new_boxed_copy ((gpointer) (val), GTK_TYPE_SELECTION_DATA))
  1655. # define newSVGtkSelectionData_own_ornull(val)    ((val) ? newSVGtkSelectionData_own(val) : &PL_sv_undef)
  1656. #endif /* GTK_TYPE_SELECTION_DATA */
  1657.  
  1658. #ifdef GTK_TYPE_SELECTION_MODE
  1659.   /* GEnum GtkSelectionMode */
  1660. # define SvGtkSelectionMode(sv)    ((GtkSelectionMode)gperl_convert_enum (GTK_TYPE_SELECTION_MODE, sv))
  1661. # define newSVGtkSelectionMode(val)    (gperl_convert_back_enum (GTK_TYPE_SELECTION_MODE, val))
  1662. #endif /* GTK_TYPE_SELECTION_MODE */
  1663.  
  1664. #ifdef GTK_TYPE_SEPARATOR
  1665.   /* GtkObject derivative GtkSeparator */
  1666. # define SvGtkSeparator(sv)    ((GtkSeparator*)gperl_get_object_check (sv, GTK_TYPE_SEPARATOR))
  1667. # define newSVGtkSeparator(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1668.   typedef GtkSeparator GtkSeparator_ornull;
  1669. # define SvGtkSeparator_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkSeparator(sv) : NULL)
  1670. # define newSVGtkSeparator_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1671. #endif /* GTK_TYPE_SEPARATOR */
  1672.  
  1673. #ifdef GTK_TYPE_SEPARATOR_MENU_ITEM
  1674.   /* GtkObject derivative GtkSeparatorMenuItem */
  1675. # define SvGtkSeparatorMenuItem(sv)    ((GtkSeparatorMenuItem*)gperl_get_object_check (sv, GTK_TYPE_SEPARATOR_MENU_ITEM))
  1676. # define newSVGtkSeparatorMenuItem(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1677.   typedef GtkSeparatorMenuItem GtkSeparatorMenuItem_ornull;
  1678. # define SvGtkSeparatorMenuItem_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkSeparatorMenuItem(sv) : NULL)
  1679. # define newSVGtkSeparatorMenuItem_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1680. #endif /* GTK_TYPE_SEPARATOR_MENU_ITEM */
  1681.  
  1682. #ifdef GTK_TYPE_SETTINGS
  1683.   /* GObject derivative GtkSettings */
  1684. # define SvGtkSettings(sv)    ((GtkSettings*)gperl_get_object_check (sv, GTK_TYPE_SETTINGS))
  1685. # define newSVGtkSettings(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  1686.   typedef GtkSettings GtkSettings_ornull;
  1687. # define SvGtkSettings_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkSettings(sv) : NULL)
  1688. # define newSVGtkSettings_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  1689. typedef GtkSettings GtkSettings_noinc;
  1690. #define newSVGtkSettings_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  1691. typedef GtkSettings GtkSettings_noinc_ornull;
  1692. #define newSVGtkSettings_noinc_ornull(val)    ((val) ? newSVGtkSettings_noinc(val) : &PL_sv_undef)
  1693. #endif /* GTK_TYPE_SETTINGS */
  1694.  
  1695. #ifdef GTK_TYPE_SHADOW_TYPE
  1696.   /* GEnum GtkShadowType */
  1697. # define SvGtkShadowType(sv)    ((GtkShadowType)gperl_convert_enum (GTK_TYPE_SHADOW_TYPE, sv))
  1698. # define newSVGtkShadowType(val)    (gperl_convert_back_enum (GTK_TYPE_SHADOW_TYPE, val))
  1699. #endif /* GTK_TYPE_SHADOW_TYPE */
  1700.  
  1701. #ifdef GTK_TYPE_SIDE_TYPE
  1702.   /* GEnum GtkSideType */
  1703. # define SvGtkSideType(sv)    ((GtkSideType)gperl_convert_enum (GTK_TYPE_SIDE_TYPE, sv))
  1704. # define newSVGtkSideType(val)    (gperl_convert_back_enum (GTK_TYPE_SIDE_TYPE, val))
  1705. #endif /* GTK_TYPE_SIDE_TYPE */
  1706.  
  1707. #ifdef GTK_TYPE_SIGNAL_RUN_TYPE
  1708.   /* GFlags GtkSignalRunType */
  1709. # define SvGtkSignalRunType(sv)    ((GtkSignalRunType)gperl_convert_flags (GTK_TYPE_SIGNAL_RUN_TYPE, sv))
  1710. # define newSVGtkSignalRunType(val)    (gperl_convert_back_flags (GTK_TYPE_SIGNAL_RUN_TYPE, val))
  1711. #endif /* GTK_TYPE_SIGNAL_RUN_TYPE */
  1712.  
  1713. #ifdef GTK_TYPE_SIZE_GROUP
  1714.   /* GObject derivative GtkSizeGroup */
  1715. # define SvGtkSizeGroup(sv)    ((GtkSizeGroup*)gperl_get_object_check (sv, GTK_TYPE_SIZE_GROUP))
  1716. # define newSVGtkSizeGroup(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  1717.   typedef GtkSizeGroup GtkSizeGroup_ornull;
  1718. # define SvGtkSizeGroup_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkSizeGroup(sv) : NULL)
  1719. # define newSVGtkSizeGroup_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  1720. typedef GtkSizeGroup GtkSizeGroup_noinc;
  1721. #define newSVGtkSizeGroup_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  1722. typedef GtkSizeGroup GtkSizeGroup_noinc_ornull;
  1723. #define newSVGtkSizeGroup_noinc_ornull(val)    ((val) ? newSVGtkSizeGroup_noinc(val) : &PL_sv_undef)
  1724. #endif /* GTK_TYPE_SIZE_GROUP */
  1725.  
  1726. #ifdef GTK_TYPE_SIZE_GROUP_MODE
  1727.   /* GEnum GtkSizeGroupMode */
  1728. # define SvGtkSizeGroupMode(sv)    ((GtkSizeGroupMode)gperl_convert_enum (GTK_TYPE_SIZE_GROUP_MODE, sv))
  1729. # define newSVGtkSizeGroupMode(val)    (gperl_convert_back_enum (GTK_TYPE_SIZE_GROUP_MODE, val))
  1730. #endif /* GTK_TYPE_SIZE_GROUP_MODE */
  1731.  
  1732. #ifdef GTK_TYPE_SOCKET
  1733.   /* GtkObject derivative GtkSocket */
  1734. # define SvGtkSocket(sv)    ((GtkSocket*)gperl_get_object_check (sv, GTK_TYPE_SOCKET))
  1735. # define newSVGtkSocket(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1736.   typedef GtkSocket GtkSocket_ornull;
  1737. # define SvGtkSocket_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkSocket(sv) : NULL)
  1738. # define newSVGtkSocket_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1739. #endif /* GTK_TYPE_SOCKET */
  1740.  
  1741. #ifdef GTK_TYPE_SORT_TYPE
  1742.   /* GEnum GtkSortType */
  1743. # define SvGtkSortType(sv)    ((GtkSortType)gperl_convert_enum (GTK_TYPE_SORT_TYPE, sv))
  1744. # define newSVGtkSortType(val)    (gperl_convert_back_enum (GTK_TYPE_SORT_TYPE, val))
  1745. #endif /* GTK_TYPE_SORT_TYPE */
  1746.  
  1747. #ifdef GTK_TYPE_SPIN_BUTTON
  1748.   /* GtkObject derivative GtkSpinButton */
  1749. # define SvGtkSpinButton(sv)    ((GtkSpinButton*)gperl_get_object_check (sv, GTK_TYPE_SPIN_BUTTON))
  1750. # define newSVGtkSpinButton(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1751.   typedef GtkSpinButton GtkSpinButton_ornull;
  1752. # define SvGtkSpinButton_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkSpinButton(sv) : NULL)
  1753. # define newSVGtkSpinButton_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1754. #endif /* GTK_TYPE_SPIN_BUTTON */
  1755.  
  1756. #ifdef GTK_TYPE_SPIN_BUTTON_UPDATE_POLICY
  1757.   /* GEnum GtkSpinButtonUpdatePolicy */
  1758. # define SvGtkSpinButtonUpdatePolicy(sv)    ((GtkSpinButtonUpdatePolicy)gperl_convert_enum (GTK_TYPE_SPIN_BUTTON_UPDATE_POLICY, sv))
  1759. # define newSVGtkSpinButtonUpdatePolicy(val)    (gperl_convert_back_enum (GTK_TYPE_SPIN_BUTTON_UPDATE_POLICY, val))
  1760. #endif /* GTK_TYPE_SPIN_BUTTON_UPDATE_POLICY */
  1761.  
  1762. #ifdef GTK_TYPE_SPIN_TYPE
  1763.   /* GEnum GtkSpinType */
  1764. # define SvGtkSpinType(sv)    ((GtkSpinType)gperl_convert_enum (GTK_TYPE_SPIN_TYPE, sv))
  1765. # define newSVGtkSpinType(val)    (gperl_convert_back_enum (GTK_TYPE_SPIN_TYPE, val))
  1766. #endif /* GTK_TYPE_SPIN_TYPE */
  1767.  
  1768. #ifdef GTK_TYPE_STATE_TYPE
  1769.   /* GEnum GtkStateType */
  1770. # define SvGtkStateType(sv)    ((GtkStateType)gperl_convert_enum (GTK_TYPE_STATE_TYPE, sv))
  1771. # define newSVGtkStateType(val)    (gperl_convert_back_enum (GTK_TYPE_STATE_TYPE, val))
  1772. #endif /* GTK_TYPE_STATE_TYPE */
  1773.  
  1774. #ifdef GTK_TYPE_STATUSBAR
  1775.   /* GtkObject derivative GtkStatusbar */
  1776. # define SvGtkStatusbar(sv)    ((GtkStatusbar*)gperl_get_object_check (sv, GTK_TYPE_STATUSBAR))
  1777. # define newSVGtkStatusbar(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1778.   typedef GtkStatusbar GtkStatusbar_ornull;
  1779. # define SvGtkStatusbar_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkStatusbar(sv) : NULL)
  1780. # define newSVGtkStatusbar_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1781. #endif /* GTK_TYPE_STATUSBAR */
  1782.  
  1783. #ifdef GTK_TYPE_STYLE
  1784.   /* GObject derivative GtkStyle */
  1785. # define SvGtkStyle(sv)    ((GtkStyle*)gperl_get_object_check (sv, GTK_TYPE_STYLE))
  1786. # define newSVGtkStyle(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  1787.   typedef GtkStyle GtkStyle_ornull;
  1788. # define SvGtkStyle_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkStyle(sv) : NULL)
  1789. # define newSVGtkStyle_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  1790. typedef GtkStyle GtkStyle_noinc;
  1791. #define newSVGtkStyle_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  1792. typedef GtkStyle GtkStyle_noinc_ornull;
  1793. #define newSVGtkStyle_noinc_ornull(val)    ((val) ? newSVGtkStyle_noinc(val) : &PL_sv_undef)
  1794. #endif /* GTK_TYPE_STYLE */
  1795.  
  1796. #ifdef GTK_TYPE_SUBMENU_DIRECTION
  1797.   /* GEnum GtkSubmenuDirection */
  1798. # define SvGtkSubmenuDirection(sv)    ((GtkSubmenuDirection)gperl_convert_enum (GTK_TYPE_SUBMENU_DIRECTION, sv))
  1799. # define newSVGtkSubmenuDirection(val)    (gperl_convert_back_enum (GTK_TYPE_SUBMENU_DIRECTION, val))
  1800. #endif /* GTK_TYPE_SUBMENU_DIRECTION */
  1801.  
  1802. #ifdef GTK_TYPE_SUBMENU_PLACEMENT
  1803.   /* GEnum GtkSubmenuPlacement */
  1804. # define SvGtkSubmenuPlacement(sv)    ((GtkSubmenuPlacement)gperl_convert_enum (GTK_TYPE_SUBMENU_PLACEMENT, sv))
  1805. # define newSVGtkSubmenuPlacement(val)    (gperl_convert_back_enum (GTK_TYPE_SUBMENU_PLACEMENT, val))
  1806. #endif /* GTK_TYPE_SUBMENU_PLACEMENT */
  1807.  
  1808. #ifdef GTK_TYPE_TABLE
  1809.   /* GtkObject derivative GtkTable */
  1810. # define SvGtkTable(sv)    ((GtkTable*)gperl_get_object_check (sv, GTK_TYPE_TABLE))
  1811. # define newSVGtkTable(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1812.   typedef GtkTable GtkTable_ornull;
  1813. # define SvGtkTable_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkTable(sv) : NULL)
  1814. # define newSVGtkTable_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1815. #endif /* GTK_TYPE_TABLE */
  1816.  
  1817. #ifdef GTK_TYPE_TARGET_FLAGS
  1818.   /* GFlags GtkTargetFlags */
  1819. # define SvGtkTargetFlags(sv)    ((GtkTargetFlags)gperl_convert_flags (GTK_TYPE_TARGET_FLAGS, sv))
  1820. # define newSVGtkTargetFlags(val)    (gperl_convert_back_flags (GTK_TYPE_TARGET_FLAGS, val))
  1821. #endif /* GTK_TYPE_TARGET_FLAGS */
  1822.  
  1823. #ifdef GTK_TYPE_TEAROFF_MENU_ITEM
  1824.   /* GtkObject derivative GtkTearoffMenuItem */
  1825. # define SvGtkTearoffMenuItem(sv)    ((GtkTearoffMenuItem*)gperl_get_object_check (sv, GTK_TYPE_TEAROFF_MENU_ITEM))
  1826. # define newSVGtkTearoffMenuItem(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1827.   typedef GtkTearoffMenuItem GtkTearoffMenuItem_ornull;
  1828. # define SvGtkTearoffMenuItem_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkTearoffMenuItem(sv) : NULL)
  1829. # define newSVGtkTearoffMenuItem_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1830. #endif /* GTK_TYPE_TEAROFF_MENU_ITEM */
  1831.  
  1832. #ifdef GTK_TYPE_TEXT_ATTRIBUTES
  1833.   /* GBoxed GtkTextAttributes */
  1834.   typedef GtkTextAttributes GtkTextAttributes_ornull;
  1835. # define SvGtkTextAttributes(sv)    ((GtkTextAttributes *) gperl_get_boxed_check ((sv), GTK_TYPE_TEXT_ATTRIBUTES))
  1836. # define SvGtkTextAttributes_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkTextAttributes (sv) : NULL)
  1837.   typedef GtkTextAttributes GtkTextAttributes_own;
  1838.   typedef GtkTextAttributes GtkTextAttributes_copy;
  1839.   typedef GtkTextAttributes GtkTextAttributes_own_ornull;
  1840. # define newSVGtkTextAttributes(val)    (gperl_new_boxed ((gpointer) (val), GTK_TYPE_TEXT_ATTRIBUTES, FALSE))
  1841. # define newSVGtkTextAttributes_ornull(val)    ((val) ? newSVGtkTextAttributes(val) : &PL_sv_undef)
  1842. # define newSVGtkTextAttributes_own(val)    (gperl_new_boxed ((gpointer) (val), GTK_TYPE_TEXT_ATTRIBUTES, TRUE))
  1843. # define newSVGtkTextAttributes_copy(val)    (gperl_new_boxed_copy ((gpointer) (val), GTK_TYPE_TEXT_ATTRIBUTES))
  1844. # define newSVGtkTextAttributes_own_ornull(val)    ((val) ? newSVGtkTextAttributes_own(val) : &PL_sv_undef)
  1845. #endif /* GTK_TYPE_TEXT_ATTRIBUTES */
  1846.  
  1847. #ifdef GTK_TYPE_TEXT_BUFFER
  1848.   /* GObject derivative GtkTextBuffer */
  1849. # define SvGtkTextBuffer(sv)    ((GtkTextBuffer*)gperl_get_object_check (sv, GTK_TYPE_TEXT_BUFFER))
  1850. # define newSVGtkTextBuffer(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  1851.   typedef GtkTextBuffer GtkTextBuffer_ornull;
  1852. # define SvGtkTextBuffer_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkTextBuffer(sv) : NULL)
  1853. # define newSVGtkTextBuffer_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  1854. typedef GtkTextBuffer GtkTextBuffer_noinc;
  1855. #define newSVGtkTextBuffer_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  1856. typedef GtkTextBuffer GtkTextBuffer_noinc_ornull;
  1857. #define newSVGtkTextBuffer_noinc_ornull(val)    ((val) ? newSVGtkTextBuffer_noinc(val) : &PL_sv_undef)
  1858. #endif /* GTK_TYPE_TEXT_BUFFER */
  1859.  
  1860. #ifdef GTK_TYPE_TEXT_CHILD_ANCHOR
  1861.   /* GObject derivative GtkTextChildAnchor */
  1862. # define SvGtkTextChildAnchor(sv)    ((GtkTextChildAnchor*)gperl_get_object_check (sv, GTK_TYPE_TEXT_CHILD_ANCHOR))
  1863. # define newSVGtkTextChildAnchor(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  1864.   typedef GtkTextChildAnchor GtkTextChildAnchor_ornull;
  1865. # define SvGtkTextChildAnchor_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkTextChildAnchor(sv) : NULL)
  1866. # define newSVGtkTextChildAnchor_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  1867. typedef GtkTextChildAnchor GtkTextChildAnchor_noinc;
  1868. #define newSVGtkTextChildAnchor_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  1869. typedef GtkTextChildAnchor GtkTextChildAnchor_noinc_ornull;
  1870. #define newSVGtkTextChildAnchor_noinc_ornull(val)    ((val) ? newSVGtkTextChildAnchor_noinc(val) : &PL_sv_undef)
  1871. #endif /* GTK_TYPE_TEXT_CHILD_ANCHOR */
  1872.  
  1873. #ifdef GTK_TYPE_TEXT_DIRECTION
  1874.   /* GEnum GtkTextDirection */
  1875. # define SvGtkTextDirection(sv)    ((GtkTextDirection)gperl_convert_enum (GTK_TYPE_TEXT_DIRECTION, sv))
  1876. # define newSVGtkTextDirection(val)    (gperl_convert_back_enum (GTK_TYPE_TEXT_DIRECTION, val))
  1877. #endif /* GTK_TYPE_TEXT_DIRECTION */
  1878.  
  1879. #ifdef GTK_TYPE_TEXT_ITER
  1880.   /* GBoxed GtkTextIter */
  1881.   typedef GtkTextIter GtkTextIter_ornull;
  1882. # define SvGtkTextIter(sv)    ((GtkTextIter *) gperl_get_boxed_check ((sv), GTK_TYPE_TEXT_ITER))
  1883. # define SvGtkTextIter_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkTextIter (sv) : NULL)
  1884.   typedef GtkTextIter GtkTextIter_own;
  1885.   typedef GtkTextIter GtkTextIter_copy;
  1886.   typedef GtkTextIter GtkTextIter_own_ornull;
  1887. # define newSVGtkTextIter(val)    (gperl_new_boxed ((gpointer) (val), GTK_TYPE_TEXT_ITER, FALSE))
  1888. # define newSVGtkTextIter_ornull(val)    ((val) ? newSVGtkTextIter(val) : &PL_sv_undef)
  1889. # define newSVGtkTextIter_own(val)    (gperl_new_boxed ((gpointer) (val), GTK_TYPE_TEXT_ITER, TRUE))
  1890. # define newSVGtkTextIter_copy(val)    (gperl_new_boxed_copy ((gpointer) (val), GTK_TYPE_TEXT_ITER))
  1891. # define newSVGtkTextIter_own_ornull(val)    ((val) ? newSVGtkTextIter_own(val) : &PL_sv_undef)
  1892. #endif /* GTK_TYPE_TEXT_ITER */
  1893.  
  1894. #ifdef GTK_TYPE_TEXT_MARK
  1895.   /* GObject derivative GtkTextMark */
  1896. # define SvGtkTextMark(sv)    ((GtkTextMark*)gperl_get_object_check (sv, GTK_TYPE_TEXT_MARK))
  1897. # define newSVGtkTextMark(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  1898.   typedef GtkTextMark GtkTextMark_ornull;
  1899. # define SvGtkTextMark_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkTextMark(sv) : NULL)
  1900. # define newSVGtkTextMark_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  1901. typedef GtkTextMark GtkTextMark_noinc;
  1902. #define newSVGtkTextMark_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  1903. typedef GtkTextMark GtkTextMark_noinc_ornull;
  1904. #define newSVGtkTextMark_noinc_ornull(val)    ((val) ? newSVGtkTextMark_noinc(val) : &PL_sv_undef)
  1905. #endif /* GTK_TYPE_TEXT_MARK */
  1906.  
  1907. #ifdef GTK_TYPE_TEXT_SEARCH_FLAGS
  1908.   /* GFlags GtkTextSearchFlags */
  1909. # define SvGtkTextSearchFlags(sv)    ((GtkTextSearchFlags)gperl_convert_flags (GTK_TYPE_TEXT_SEARCH_FLAGS, sv))
  1910. # define newSVGtkTextSearchFlags(val)    (gperl_convert_back_flags (GTK_TYPE_TEXT_SEARCH_FLAGS, val))
  1911. #endif /* GTK_TYPE_TEXT_SEARCH_FLAGS */
  1912.  
  1913. #ifdef GTK_TYPE_TEXT_TAG
  1914.   /* GObject derivative GtkTextTag */
  1915. # define SvGtkTextTag(sv)    ((GtkTextTag*)gperl_get_object_check (sv, GTK_TYPE_TEXT_TAG))
  1916. # define newSVGtkTextTag(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  1917.   typedef GtkTextTag GtkTextTag_ornull;
  1918. # define SvGtkTextTag_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkTextTag(sv) : NULL)
  1919. # define newSVGtkTextTag_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  1920. typedef GtkTextTag GtkTextTag_noinc;
  1921. #define newSVGtkTextTag_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  1922. typedef GtkTextTag GtkTextTag_noinc_ornull;
  1923. #define newSVGtkTextTag_noinc_ornull(val)    ((val) ? newSVGtkTextTag_noinc(val) : &PL_sv_undef)
  1924. #endif /* GTK_TYPE_TEXT_TAG */
  1925.  
  1926. #ifdef GTK_TYPE_TEXT_TAG_TABLE
  1927.   /* GObject derivative GtkTextTagTable */
  1928. # define SvGtkTextTagTable(sv)    ((GtkTextTagTable*)gperl_get_object_check (sv, GTK_TYPE_TEXT_TAG_TABLE))
  1929. # define newSVGtkTextTagTable(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  1930.   typedef GtkTextTagTable GtkTextTagTable_ornull;
  1931. # define SvGtkTextTagTable_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkTextTagTable(sv) : NULL)
  1932. # define newSVGtkTextTagTable_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  1933. typedef GtkTextTagTable GtkTextTagTable_noinc;
  1934. #define newSVGtkTextTagTable_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  1935. typedef GtkTextTagTable GtkTextTagTable_noinc_ornull;
  1936. #define newSVGtkTextTagTable_noinc_ornull(val)    ((val) ? newSVGtkTextTagTable_noinc(val) : &PL_sv_undef)
  1937. #endif /* GTK_TYPE_TEXT_TAG_TABLE */
  1938.  
  1939. #ifdef GTK_TYPE_TEXT_VIEW
  1940.   /* GtkObject derivative GtkTextView */
  1941. # define SvGtkTextView(sv)    ((GtkTextView*)gperl_get_object_check (sv, GTK_TYPE_TEXT_VIEW))
  1942. # define newSVGtkTextView(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1943.   typedef GtkTextView GtkTextView_ornull;
  1944. # define SvGtkTextView_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkTextView(sv) : NULL)
  1945. # define newSVGtkTextView_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1946. #endif /* GTK_TYPE_TEXT_VIEW */
  1947.  
  1948. #ifdef GTK_TYPE_TEXT_WINDOW_TYPE
  1949.   /* GEnum GtkTextWindowType */
  1950. # define SvGtkTextWindowType(sv)    ((GtkTextWindowType)gperl_convert_enum (GTK_TYPE_TEXT_WINDOW_TYPE, sv))
  1951. # define newSVGtkTextWindowType(val)    (gperl_convert_back_enum (GTK_TYPE_TEXT_WINDOW_TYPE, val))
  1952. #endif /* GTK_TYPE_TEXT_WINDOW_TYPE */
  1953.  
  1954. #ifdef GTK_TYPE_TOGGLE_BUTTON
  1955.   /* GtkObject derivative GtkToggleButton */
  1956. # define SvGtkToggleButton(sv)    ((GtkToggleButton*)gperl_get_object_check (sv, GTK_TYPE_TOGGLE_BUTTON))
  1957. # define newSVGtkToggleButton(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1958.   typedef GtkToggleButton GtkToggleButton_ornull;
  1959. # define SvGtkToggleButton_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkToggleButton(sv) : NULL)
  1960. # define newSVGtkToggleButton_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1961. #endif /* GTK_TYPE_TOGGLE_BUTTON */
  1962.  
  1963. #ifdef GTK_TYPE_TOOLBAR_CHILD_TYPE
  1964.   /* GEnum GtkToolbarChildType */
  1965. # define SvGtkToolbarChildType(sv)    ((GtkToolbarChildType)gperl_convert_enum (GTK_TYPE_TOOLBAR_CHILD_TYPE, sv))
  1966. # define newSVGtkToolbarChildType(val)    (gperl_convert_back_enum (GTK_TYPE_TOOLBAR_CHILD_TYPE, val))
  1967. #endif /* GTK_TYPE_TOOLBAR_CHILD_TYPE */
  1968.  
  1969. #ifdef GTK_TYPE_TOOLBAR
  1970.   /* GtkObject derivative GtkToolbar */
  1971. # define SvGtkToolbar(sv)    ((GtkToolbar*)gperl_get_object_check (sv, GTK_TYPE_TOOLBAR))
  1972. # define newSVGtkToolbar(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1973.   typedef GtkToolbar GtkToolbar_ornull;
  1974. # define SvGtkToolbar_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkToolbar(sv) : NULL)
  1975. # define newSVGtkToolbar_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1976. #endif /* GTK_TYPE_TOOLBAR */
  1977.  
  1978. #ifdef GTK_TYPE_TOOLBAR_SPACE_STYLE
  1979.   /* GEnum GtkToolbarSpaceStyle */
  1980. # define SvGtkToolbarSpaceStyle(sv)    ((GtkToolbarSpaceStyle)gperl_convert_enum (GTK_TYPE_TOOLBAR_SPACE_STYLE, sv))
  1981. # define newSVGtkToolbarSpaceStyle(val)    (gperl_convert_back_enum (GTK_TYPE_TOOLBAR_SPACE_STYLE, val))
  1982. #endif /* GTK_TYPE_TOOLBAR_SPACE_STYLE */
  1983.  
  1984. #ifdef GTK_TYPE_TOOLBAR_STYLE
  1985.   /* GEnum GtkToolbarStyle */
  1986. # define SvGtkToolbarStyle(sv)    ((GtkToolbarStyle)gperl_convert_enum (GTK_TYPE_TOOLBAR_STYLE, sv))
  1987. # define newSVGtkToolbarStyle(val)    (gperl_convert_back_enum (GTK_TYPE_TOOLBAR_STYLE, val))
  1988. #endif /* GTK_TYPE_TOOLBAR_STYLE */
  1989.  
  1990. #ifdef GTK_TYPE_TOOLTIPS
  1991.   /* GtkObject derivative GtkTooltips */
  1992. # define SvGtkTooltips(sv)    ((GtkTooltips*)gperl_get_object_check (sv, GTK_TYPE_TOOLTIPS))
  1993. # define newSVGtkTooltips(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1994.   typedef GtkTooltips GtkTooltips_ornull;
  1995. # define SvGtkTooltips_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkTooltips(sv) : NULL)
  1996. # define newSVGtkTooltips_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1997. #endif /* GTK_TYPE_TOOLTIPS */
  1998.  
  1999. #ifdef GTK_TYPE_TREE_DRAG_DEST
  2000.   /* GInterface derivative GtkTreeDragDest */
  2001. # define SvGtkTreeDragDest(sv)    ((GtkTreeDragDest*)gperl_get_object_check (sv, GTK_TYPE_TREE_DRAG_DEST))
  2002. # define newSVGtkTreeDragDest(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  2003.   typedef GtkTreeDragDest GtkTreeDragDest_ornull;
  2004. # define SvGtkTreeDragDest_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkTreeDragDest(sv) : NULL)
  2005. # define newSVGtkTreeDragDest_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  2006. #endif /* GTK_TYPE_TREE_DRAG_DEST */
  2007.  
  2008. #ifdef GTK_TYPE_TREE_DRAG_SOURCE
  2009.   /* GInterface derivative GtkTreeDragSource */
  2010. # define SvGtkTreeDragSource(sv)    ((GtkTreeDragSource*)gperl_get_object_check (sv, GTK_TYPE_TREE_DRAG_SOURCE))
  2011. # define newSVGtkTreeDragSource(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  2012.   typedef GtkTreeDragSource GtkTreeDragSource_ornull;
  2013. # define SvGtkTreeDragSource_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkTreeDragSource(sv) : NULL)
  2014. # define newSVGtkTreeDragSource_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  2015. #endif /* GTK_TYPE_TREE_DRAG_SOURCE */
  2016.  
  2017. #ifdef GTK_TYPE_TREE_ITER
  2018.   /* GBoxed GtkTreeIter */
  2019.   typedef GtkTreeIter GtkTreeIter_ornull;
  2020. # define SvGtkTreeIter(sv)    ((GtkTreeIter *) gperl_get_boxed_check ((sv), GTK_TYPE_TREE_ITER))
  2021. # define SvGtkTreeIter_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkTreeIter (sv) : NULL)
  2022.   typedef GtkTreeIter GtkTreeIter_own;
  2023.   typedef GtkTreeIter GtkTreeIter_copy;
  2024.   typedef GtkTreeIter GtkTreeIter_own_ornull;
  2025. # define newSVGtkTreeIter(val)    (gperl_new_boxed ((gpointer) (val), GTK_TYPE_TREE_ITER, FALSE))
  2026. # define newSVGtkTreeIter_ornull(val)    ((val) ? newSVGtkTreeIter(val) : &PL_sv_undef)
  2027. # define newSVGtkTreeIter_own(val)    (gperl_new_boxed ((gpointer) (val), GTK_TYPE_TREE_ITER, TRUE))
  2028. # define newSVGtkTreeIter_copy(val)    (gperl_new_boxed_copy ((gpointer) (val), GTK_TYPE_TREE_ITER))
  2029. # define newSVGtkTreeIter_own_ornull(val)    ((val) ? newSVGtkTreeIter_own(val) : &PL_sv_undef)
  2030. #endif /* GTK_TYPE_TREE_ITER */
  2031.  
  2032. #ifdef GTK_TYPE_TREE_MODEL_FLAGS
  2033.   /* GFlags GtkTreeModelFlags */
  2034. # define SvGtkTreeModelFlags(sv)    ((GtkTreeModelFlags)gperl_convert_flags (GTK_TYPE_TREE_MODEL_FLAGS, sv))
  2035. # define newSVGtkTreeModelFlags(val)    (gperl_convert_back_flags (GTK_TYPE_TREE_MODEL_FLAGS, val))
  2036. #endif /* GTK_TYPE_TREE_MODEL_FLAGS */
  2037.  
  2038. #ifdef GTK_TYPE_TREE_MODEL
  2039.   /* GInterface derivative GtkTreeModel */
  2040. # define SvGtkTreeModel(sv)    ((GtkTreeModel*)gperl_get_object_check (sv, GTK_TYPE_TREE_MODEL))
  2041. # define newSVGtkTreeModel(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  2042.   typedef GtkTreeModel GtkTreeModel_ornull;
  2043. # define SvGtkTreeModel_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkTreeModel(sv) : NULL)
  2044. # define newSVGtkTreeModel_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  2045. #endif /* GTK_TYPE_TREE_MODEL */
  2046.  
  2047. #ifdef GTK_TYPE_TREE_MODEL_SORT
  2048.   /* GObject derivative GtkTreeModelSort */
  2049. # define SvGtkTreeModelSort(sv)    ((GtkTreeModelSort*)gperl_get_object_check (sv, GTK_TYPE_TREE_MODEL_SORT))
  2050. # define newSVGtkTreeModelSort(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  2051.   typedef GtkTreeModelSort GtkTreeModelSort_ornull;
  2052. # define SvGtkTreeModelSort_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkTreeModelSort(sv) : NULL)
  2053. # define newSVGtkTreeModelSort_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  2054. typedef GtkTreeModelSort GtkTreeModelSort_noinc;
  2055. #define newSVGtkTreeModelSort_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  2056. typedef GtkTreeModelSort GtkTreeModelSort_noinc_ornull;
  2057. #define newSVGtkTreeModelSort_noinc_ornull(val)    ((val) ? newSVGtkTreeModelSort_noinc(val) : &PL_sv_undef)
  2058. #endif /* GTK_TYPE_TREE_MODEL_SORT */
  2059.  
  2060. #ifdef GTK_TYPE_TREE_PATH
  2061.   /* GBoxed GtkTreePath */
  2062.   typedef GtkTreePath GtkTreePath_ornull;
  2063. # define SvGtkTreePath(sv)    ((GtkTreePath *) gperl_get_boxed_check ((sv), GTK_TYPE_TREE_PATH))
  2064. # define SvGtkTreePath_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkTreePath (sv) : NULL)
  2065.   typedef GtkTreePath GtkTreePath_own;
  2066.   typedef GtkTreePath GtkTreePath_copy;
  2067.   typedef GtkTreePath GtkTreePath_own_ornull;
  2068. # define newSVGtkTreePath(val)    (gperl_new_boxed ((gpointer) (val), GTK_TYPE_TREE_PATH, FALSE))
  2069. # define newSVGtkTreePath_ornull(val)    ((val) ? newSVGtkTreePath(val) : &PL_sv_undef)
  2070. # define newSVGtkTreePath_own(val)    (gperl_new_boxed ((gpointer) (val), GTK_TYPE_TREE_PATH, TRUE))
  2071. # define newSVGtkTreePath_copy(val)    (gperl_new_boxed_copy ((gpointer) (val), GTK_TYPE_TREE_PATH))
  2072. # define newSVGtkTreePath_own_ornull(val)    ((val) ? newSVGtkTreePath_own(val) : &PL_sv_undef)
  2073. #endif /* GTK_TYPE_TREE_PATH */
  2074.  
  2075. #ifdef GTK_TYPE_TREE_ROW_REFERENCE
  2076.   /* GBoxed GtkTreeRowReference */
  2077.   typedef GtkTreeRowReference GtkTreeRowReference_ornull;
  2078. # define SvGtkTreeRowReference(sv)    ((GtkTreeRowReference *) gperl_get_boxed_check ((sv), GTK_TYPE_TREE_ROW_REFERENCE))
  2079. # define SvGtkTreeRowReference_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkTreeRowReference (sv) : NULL)
  2080.   typedef GtkTreeRowReference GtkTreeRowReference_own;
  2081.   typedef GtkTreeRowReference GtkTreeRowReference_copy;
  2082.   typedef GtkTreeRowReference GtkTreeRowReference_own_ornull;
  2083. # define newSVGtkTreeRowReference(val)    (gperl_new_boxed ((gpointer) (val), GTK_TYPE_TREE_ROW_REFERENCE, FALSE))
  2084. # define newSVGtkTreeRowReference_ornull(val)    ((val) ? newSVGtkTreeRowReference(val) : &PL_sv_undef)
  2085. # define newSVGtkTreeRowReference_own(val)    (gperl_new_boxed ((gpointer) (val), GTK_TYPE_TREE_ROW_REFERENCE, TRUE))
  2086. # define newSVGtkTreeRowReference_copy(val)    (gperl_new_boxed_copy ((gpointer) (val), GTK_TYPE_TREE_ROW_REFERENCE))
  2087. # define newSVGtkTreeRowReference_own_ornull(val)    ((val) ? newSVGtkTreeRowReference_own(val) : &PL_sv_undef)
  2088. #endif /* GTK_TYPE_TREE_ROW_REFERENCE */
  2089.  
  2090. #ifdef GTK_TYPE_TREE_SELECTION
  2091.   /* GObject derivative GtkTreeSelection */
  2092. # define SvGtkTreeSelection(sv)    ((GtkTreeSelection*)gperl_get_object_check (sv, GTK_TYPE_TREE_SELECTION))
  2093. # define newSVGtkTreeSelection(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  2094.   typedef GtkTreeSelection GtkTreeSelection_ornull;
  2095. # define SvGtkTreeSelection_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkTreeSelection(sv) : NULL)
  2096. # define newSVGtkTreeSelection_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  2097. typedef GtkTreeSelection GtkTreeSelection_noinc;
  2098. #define newSVGtkTreeSelection_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  2099. typedef GtkTreeSelection GtkTreeSelection_noinc_ornull;
  2100. #define newSVGtkTreeSelection_noinc_ornull(val)    ((val) ? newSVGtkTreeSelection_noinc(val) : &PL_sv_undef)
  2101. #endif /* GTK_TYPE_TREE_SELECTION */
  2102.  
  2103. #ifdef GTK_TYPE_TREE_SORTABLE
  2104.   /* GInterface derivative GtkTreeSortable */
  2105. # define SvGtkTreeSortable(sv)    ((GtkTreeSortable*)gperl_get_object_check (sv, GTK_TYPE_TREE_SORTABLE))
  2106. # define newSVGtkTreeSortable(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  2107.   typedef GtkTreeSortable GtkTreeSortable_ornull;
  2108. # define SvGtkTreeSortable_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkTreeSortable(sv) : NULL)
  2109. # define newSVGtkTreeSortable_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  2110. #endif /* GTK_TYPE_TREE_SORTABLE */
  2111.  
  2112. #ifdef GTK_TYPE_TREE_STORE
  2113.   /* GObject derivative GtkTreeStore */
  2114. # define SvGtkTreeStore(sv)    ((GtkTreeStore*)gperl_get_object_check (sv, GTK_TYPE_TREE_STORE))
  2115. # define newSVGtkTreeStore(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  2116.   typedef GtkTreeStore GtkTreeStore_ornull;
  2117. # define SvGtkTreeStore_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkTreeStore(sv) : NULL)
  2118. # define newSVGtkTreeStore_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  2119. typedef GtkTreeStore GtkTreeStore_noinc;
  2120. #define newSVGtkTreeStore_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  2121. typedef GtkTreeStore GtkTreeStore_noinc_ornull;
  2122. #define newSVGtkTreeStore_noinc_ornull(val)    ((val) ? newSVGtkTreeStore_noinc(val) : &PL_sv_undef)
  2123. #endif /* GTK_TYPE_TREE_STORE */
  2124.  
  2125. #ifdef GTK_TYPE_TREE_VIEW_COLUMN
  2126.   /* GtkObject derivative GtkTreeViewColumn */
  2127. # define SvGtkTreeViewColumn(sv)    ((GtkTreeViewColumn*)gperl_get_object_check (sv, GTK_TYPE_TREE_VIEW_COLUMN))
  2128. # define newSVGtkTreeViewColumn(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2129.   typedef GtkTreeViewColumn GtkTreeViewColumn_ornull;
  2130. # define SvGtkTreeViewColumn_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkTreeViewColumn(sv) : NULL)
  2131. # define newSVGtkTreeViewColumn_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2132. #endif /* GTK_TYPE_TREE_VIEW_COLUMN */
  2133.  
  2134. #ifdef GTK_TYPE_TREE_VIEW_COLUMN_SIZING
  2135.   /* GEnum GtkTreeViewColumnSizing */
  2136. # define SvGtkTreeViewColumnSizing(sv)    ((GtkTreeViewColumnSizing)gperl_convert_enum (GTK_TYPE_TREE_VIEW_COLUMN_SIZING, sv))
  2137. # define newSVGtkTreeViewColumnSizing(val)    (gperl_convert_back_enum (GTK_TYPE_TREE_VIEW_COLUMN_SIZING, val))
  2138. #endif /* GTK_TYPE_TREE_VIEW_COLUMN_SIZING */
  2139.  
  2140. #ifdef GTK_TYPE_TREE_VIEW_DROP_POSITION
  2141.   /* GEnum GtkTreeViewDropPosition */
  2142. # define SvGtkTreeViewDropPosition(sv)    ((GtkTreeViewDropPosition)gperl_convert_enum (GTK_TYPE_TREE_VIEW_DROP_POSITION, sv))
  2143. # define newSVGtkTreeViewDropPosition(val)    (gperl_convert_back_enum (GTK_TYPE_TREE_VIEW_DROP_POSITION, val))
  2144. #endif /* GTK_TYPE_TREE_VIEW_DROP_POSITION */
  2145.  
  2146. #ifdef GTK_TYPE_TREE_VIEW
  2147.   /* GtkObject derivative GtkTreeView */
  2148. # define SvGtkTreeView(sv)    ((GtkTreeView*)gperl_get_object_check (sv, GTK_TYPE_TREE_VIEW))
  2149. # define newSVGtkTreeView(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2150.   typedef GtkTreeView GtkTreeView_ornull;
  2151. # define SvGtkTreeView_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkTreeView(sv) : NULL)
  2152. # define newSVGtkTreeView_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2153. #endif /* GTK_TYPE_TREE_VIEW */
  2154.  
  2155. #ifdef GTK_TYPE_TREE_VIEW_MODE
  2156.   /* GEnum GtkTreeViewMode */
  2157. # define SvGtkTreeViewMode(sv)    ((GtkTreeViewMode)gperl_convert_enum (GTK_TYPE_TREE_VIEW_MODE, sv))
  2158. # define newSVGtkTreeViewMode(val)    (gperl_convert_back_enum (GTK_TYPE_TREE_VIEW_MODE, val))
  2159. #endif /* GTK_TYPE_TREE_VIEW_MODE */
  2160.  
  2161. #ifdef GTK_TYPE_UPDATE_TYPE
  2162.   /* GEnum GtkUpdateType */
  2163. # define SvGtkUpdateType(sv)    ((GtkUpdateType)gperl_convert_enum (GTK_TYPE_UPDATE_TYPE, sv))
  2164. # define newSVGtkUpdateType(val)    (gperl_convert_back_enum (GTK_TYPE_UPDATE_TYPE, val))
  2165. #endif /* GTK_TYPE_UPDATE_TYPE */
  2166.  
  2167. #ifdef GTK_TYPE_VBOX
  2168.   /* GtkObject derivative GtkVBox */
  2169. # define SvGtkVBox(sv)    ((GtkVBox*)gperl_get_object_check (sv, GTK_TYPE_VBOX))
  2170. # define newSVGtkVBox(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2171.   typedef GtkVBox GtkVBox_ornull;
  2172. # define SvGtkVBox_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkVBox(sv) : NULL)
  2173. # define newSVGtkVBox_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2174. #endif /* GTK_TYPE_VBOX */
  2175.  
  2176. #ifdef GTK_TYPE_VBUTTON_BOX
  2177.   /* GtkObject derivative GtkVButtonBox */
  2178. # define SvGtkVButtonBox(sv)    ((GtkVButtonBox*)gperl_get_object_check (sv, GTK_TYPE_VBUTTON_BOX))
  2179. # define newSVGtkVButtonBox(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2180.   typedef GtkVButtonBox GtkVButtonBox_ornull;
  2181. # define SvGtkVButtonBox_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkVButtonBox(sv) : NULL)
  2182. # define newSVGtkVButtonBox_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2183. #endif /* GTK_TYPE_VBUTTON_BOX */
  2184.  
  2185. #ifdef GTK_TYPE_VIEWPORT
  2186.   /* GtkObject derivative GtkViewport */
  2187. # define SvGtkViewport(sv)    ((GtkViewport*)gperl_get_object_check (sv, GTK_TYPE_VIEWPORT))
  2188. # define newSVGtkViewport(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2189.   typedef GtkViewport GtkViewport_ornull;
  2190. # define SvGtkViewport_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkViewport(sv) : NULL)
  2191. # define newSVGtkViewport_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2192. #endif /* GTK_TYPE_VIEWPORT */
  2193.  
  2194. #ifdef GTK_TYPE_VISIBILITY
  2195.   /* GEnum GtkVisibility */
  2196. # define SvGtkVisibility(sv)    ((GtkVisibility)gperl_convert_enum (GTK_TYPE_VISIBILITY, sv))
  2197. # define newSVGtkVisibility(val)    (gperl_convert_back_enum (GTK_TYPE_VISIBILITY, val))
  2198. #endif /* GTK_TYPE_VISIBILITY */
  2199.  
  2200. #ifdef GTK_TYPE_VPANED
  2201.   /* GtkObject derivative GtkVPaned */
  2202. # define SvGtkVPaned(sv)    ((GtkVPaned*)gperl_get_object_check (sv, GTK_TYPE_VPANED))
  2203. # define newSVGtkVPaned(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2204.   typedef GtkVPaned GtkVPaned_ornull;
  2205. # define SvGtkVPaned_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkVPaned(sv) : NULL)
  2206. # define newSVGtkVPaned_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2207. #endif /* GTK_TYPE_VPANED */
  2208.  
  2209. #ifdef GTK_TYPE_VRULER
  2210.   /* GtkObject derivative GtkVRuler */
  2211. # define SvGtkVRuler(sv)    ((GtkVRuler*)gperl_get_object_check (sv, GTK_TYPE_VRULER))
  2212. # define newSVGtkVRuler(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2213.   typedef GtkVRuler GtkVRuler_ornull;
  2214. # define SvGtkVRuler_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkVRuler(sv) : NULL)
  2215. # define newSVGtkVRuler_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2216. #endif /* GTK_TYPE_VRULER */
  2217.  
  2218. #ifdef GTK_TYPE_VSCALE
  2219.   /* GtkObject derivative GtkVScale */
  2220. # define SvGtkVScale(sv)    ((GtkVScale*)gperl_get_object_check (sv, GTK_TYPE_VSCALE))
  2221. # define newSVGtkVScale(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2222.   typedef GtkVScale GtkVScale_ornull;
  2223. # define SvGtkVScale_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkVScale(sv) : NULL)
  2224. # define newSVGtkVScale_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2225. #endif /* GTK_TYPE_VSCALE */
  2226.  
  2227. #ifdef GTK_TYPE_VSCROLLBAR
  2228.   /* GtkObject derivative GtkVScrollbar */
  2229. # define SvGtkVScrollbar(sv)    ((GtkVScrollbar*)gperl_get_object_check (sv, GTK_TYPE_VSCROLLBAR))
  2230. # define newSVGtkVScrollbar(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2231.   typedef GtkVScrollbar GtkVScrollbar_ornull;
  2232. # define SvGtkVScrollbar_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkVScrollbar(sv) : NULL)
  2233. # define newSVGtkVScrollbar_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2234. #endif /* GTK_TYPE_VSCROLLBAR */
  2235.  
  2236. #ifdef GTK_TYPE_VSEPARATOR
  2237.   /* GtkObject derivative GtkVSeparator */
  2238. # define SvGtkVSeparator(sv)    ((GtkVSeparator*)gperl_get_object_check (sv, GTK_TYPE_VSEPARATOR))
  2239. # define newSVGtkVSeparator(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2240.   typedef GtkVSeparator GtkVSeparator_ornull;
  2241. # define SvGtkVSeparator_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkVSeparator(sv) : NULL)
  2242. # define newSVGtkVSeparator_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2243. #endif /* GTK_TYPE_VSEPARATOR */
  2244.  
  2245. #ifdef GTK_TYPE_WIDGET_FLAGS
  2246.   /* GFlags GtkWidgetFlags */
  2247. # define SvGtkWidgetFlags(sv)    ((GtkWidgetFlags)gperl_convert_flags (GTK_TYPE_WIDGET_FLAGS, sv))
  2248. # define newSVGtkWidgetFlags(val)    (gperl_convert_back_flags (GTK_TYPE_WIDGET_FLAGS, val))
  2249. #endif /* GTK_TYPE_WIDGET_FLAGS */
  2250.  
  2251. #ifdef GTK_TYPE_WIDGET
  2252.   /* GtkObject derivative GtkWidget */
  2253. # define SvGtkWidget(sv)    ((GtkWidget*)gperl_get_object_check (sv, GTK_TYPE_WIDGET))
  2254. # define newSVGtkWidget(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2255.   typedef GtkWidget GtkWidget_ornull;
  2256. # define SvGtkWidget_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkWidget(sv) : NULL)
  2257. # define newSVGtkWidget_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2258. #endif /* GTK_TYPE_WIDGET */
  2259.  
  2260. #ifdef GTK_TYPE_WIDGET_HELP_TYPE
  2261.   /* GEnum GtkWidgetHelpType */
  2262. # define SvGtkWidgetHelpType(sv)    ((GtkWidgetHelpType)gperl_convert_enum (GTK_TYPE_WIDGET_HELP_TYPE, sv))
  2263. # define newSVGtkWidgetHelpType(val)    (gperl_convert_back_enum (GTK_TYPE_WIDGET_HELP_TYPE, val))
  2264. #endif /* GTK_TYPE_WIDGET_HELP_TYPE */
  2265.  
  2266. #ifdef GTK_TYPE_WINDOW_GROUP
  2267.   /* GObject derivative GtkWindowGroup */
  2268. # define SvGtkWindowGroup(sv)    ((GtkWindowGroup*)gperl_get_object_check (sv, GTK_TYPE_WINDOW_GROUP))
  2269. # define newSVGtkWindowGroup(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  2270.   typedef GtkWindowGroup GtkWindowGroup_ornull;
  2271. # define SvGtkWindowGroup_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkWindowGroup(sv) : NULL)
  2272. # define newSVGtkWindowGroup_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  2273. typedef GtkWindowGroup GtkWindowGroup_noinc;
  2274. #define newSVGtkWindowGroup_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  2275. typedef GtkWindowGroup GtkWindowGroup_noinc_ornull;
  2276. #define newSVGtkWindowGroup_noinc_ornull(val)    ((val) ? newSVGtkWindowGroup_noinc(val) : &PL_sv_undef)
  2277. #endif /* GTK_TYPE_WINDOW_GROUP */
  2278.  
  2279. #ifdef GTK_TYPE_WINDOW
  2280.   /* GtkObject derivative GtkWindow */
  2281. # define SvGtkWindow(sv)    ((GtkWindow*)gperl_get_object_check (sv, GTK_TYPE_WINDOW))
  2282. # define newSVGtkWindow(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2283.   typedef GtkWindow GtkWindow_ornull;
  2284. # define SvGtkWindow_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkWindow(sv) : NULL)
  2285. # define newSVGtkWindow_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2286. #endif /* GTK_TYPE_WINDOW */
  2287.  
  2288. #ifdef GTK_TYPE_WINDOW_POSITION
  2289.   /* GEnum GtkWindowPosition */
  2290. # define SvGtkWindowPosition(sv)    ((GtkWindowPosition)gperl_convert_enum (GTK_TYPE_WINDOW_POSITION, sv))
  2291. # define newSVGtkWindowPosition(val)    (gperl_convert_back_enum (GTK_TYPE_WINDOW_POSITION, val))
  2292. #endif /* GTK_TYPE_WINDOW_POSITION */
  2293.  
  2294. #ifdef GTK_TYPE_WINDOW_TYPE
  2295.   /* GEnum GtkWindowType */
  2296. # define SvGtkWindowType(sv)    ((GtkWindowType)gperl_convert_enum (GTK_TYPE_WINDOW_TYPE, sv))
  2297. # define newSVGtkWindowType(val)    (gperl_convert_back_enum (GTK_TYPE_WINDOW_TYPE, val))
  2298. #endif /* GTK_TYPE_WINDOW_TYPE */
  2299.  
  2300. #ifdef GTK_TYPE_WRAP_MODE
  2301.   /* GEnum GtkWrapMode */
  2302. # define SvGtkWrapMode(sv)    ((GtkWrapMode)gperl_convert_enum (GTK_TYPE_WRAP_MODE, sv))
  2303. # define newSVGtkWrapMode(val)    (gperl_convert_back_enum (GTK_TYPE_WRAP_MODE, val))
  2304. #endif /* GTK_TYPE_WRAP_MODE */
  2305.  
  2306. #ifdef GDK_TYPE_REGION
  2307.   /* GBoxed GdkRegion */
  2308.   typedef GdkRegion GdkRegion_ornull;
  2309. # define SvGdkRegion(sv)    ((GdkRegion *) gperl_get_boxed_check ((sv), GDK_TYPE_REGION))
  2310. # define SvGdkRegion_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGdkRegion (sv) : NULL)
  2311.   typedef GdkRegion GdkRegion_own;
  2312.   typedef GdkRegion GdkRegion_copy;
  2313.   typedef GdkRegion GdkRegion_own_ornull;
  2314. # define newSVGdkRegion(val)    (gperl_new_boxed ((gpointer) (val), GDK_TYPE_REGION, FALSE))
  2315. # define newSVGdkRegion_ornull(val)    ((val) ? newSVGdkRegion(val) : &PL_sv_undef)
  2316. # define newSVGdkRegion_own(val)    (gperl_new_boxed ((gpointer) (val), GDK_TYPE_REGION, TRUE))
  2317. # define newSVGdkRegion_copy(val)    (gperl_new_boxed_copy ((gpointer) (val), GDK_TYPE_REGION))
  2318. # define newSVGdkRegion_own_ornull(val)    ((val) ? newSVGdkRegion_own(val) : &PL_sv_undef)
  2319. #endif /* GDK_TYPE_REGION */
  2320.  
  2321. #ifdef GTK_TYPE_ASSISTANT
  2322.   /* GtkObject derivative GtkAssistant */
  2323. # define SvGtkAssistant(sv)    ((GtkAssistant*)gperl_get_object_check (sv, GTK_TYPE_ASSISTANT))
  2324. # define newSVGtkAssistant(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2325.   typedef GtkAssistant GtkAssistant_ornull;
  2326. # define SvGtkAssistant_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkAssistant(sv) : NULL)
  2327. # define newSVGtkAssistant_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2328. #endif /* GTK_TYPE_ASSISTANT */
  2329.  
  2330. #ifdef GTK_TYPE_ASSISTANT_PAGE_TYPE
  2331.   /* GEnum GtkAssistantPageType */
  2332. # define SvGtkAssistantPageType(sv)    ((GtkAssistantPageType)gperl_convert_enum (GTK_TYPE_ASSISTANT_PAGE_TYPE, sv))
  2333. # define newSVGtkAssistantPageType(val)    (gperl_convert_back_enum (GTK_TYPE_ASSISTANT_PAGE_TYPE, val))
  2334. #endif /* GTK_TYPE_ASSISTANT_PAGE_TYPE */
  2335.  
  2336. #ifdef GTK_TYPE_CELL_RENDERER_ACCEL
  2337.   /* GtkObject derivative GtkCellRendererAccel */
  2338. # define SvGtkCellRendererAccel(sv)    ((GtkCellRendererAccel*)gperl_get_object_check (sv, GTK_TYPE_CELL_RENDERER_ACCEL))
  2339. # define newSVGtkCellRendererAccel(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2340.   typedef GtkCellRendererAccel GtkCellRendererAccel_ornull;
  2341. # define SvGtkCellRendererAccel_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkCellRendererAccel(sv) : NULL)
  2342. # define newSVGtkCellRendererAccel_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2343. #endif /* GTK_TYPE_CELL_RENDERER_ACCEL */
  2344.  
  2345. #ifdef GTK_TYPE_CELL_RENDERER_ACCEL_MODE
  2346.   /* GEnum GtkCellRendererAccelMode */
  2347. # define SvGtkCellRendererAccelMode(sv)    ((GtkCellRendererAccelMode)gperl_convert_enum (GTK_TYPE_CELL_RENDERER_ACCEL_MODE, sv))
  2348. # define newSVGtkCellRendererAccelMode(val)    (gperl_convert_back_enum (GTK_TYPE_CELL_RENDERER_ACCEL_MODE, val))
  2349. #endif /* GTK_TYPE_CELL_RENDERER_ACCEL_MODE */
  2350.  
  2351. #ifdef GTK_TYPE_CELL_RENDERER_SPIN
  2352.   /* GtkObject derivative GtkCellRendererSpin */
  2353. # define SvGtkCellRendererSpin(sv)    ((GtkCellRendererSpin*)gperl_get_object_check (sv, GTK_TYPE_CELL_RENDERER_SPIN))
  2354. # define newSVGtkCellRendererSpin(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2355.   typedef GtkCellRendererSpin GtkCellRendererSpin_ornull;
  2356. # define SvGtkCellRendererSpin_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkCellRendererSpin(sv) : NULL)
  2357. # define newSVGtkCellRendererSpin_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2358. #endif /* GTK_TYPE_CELL_RENDERER_SPIN */
  2359.  
  2360. #ifdef GTK_TYPE_LINK_BUTTON
  2361.   /* GtkObject derivative GtkLinkButton */
  2362. # define SvGtkLinkButton(sv)    ((GtkLinkButton*)gperl_get_object_check (sv, GTK_TYPE_LINK_BUTTON))
  2363. # define newSVGtkLinkButton(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2364.   typedef GtkLinkButton GtkLinkButton_ornull;
  2365. # define SvGtkLinkButton_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkLinkButton(sv) : NULL)
  2366. # define newSVGtkLinkButton_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2367. #endif /* GTK_TYPE_LINK_BUTTON */
  2368.  
  2369. #ifdef GTK_TYPE_PAGE_ORIENTATION
  2370.   /* GEnum GtkPageOrientation */
  2371. # define SvGtkPageOrientation(sv)    ((GtkPageOrientation)gperl_convert_enum (GTK_TYPE_PAGE_ORIENTATION, sv))
  2372. # define newSVGtkPageOrientation(val)    (gperl_convert_back_enum (GTK_TYPE_PAGE_ORIENTATION, val))
  2373. #endif /* GTK_TYPE_PAGE_ORIENTATION */
  2374.  
  2375. #ifdef GTK_TYPE_PAGE_SETUP
  2376.   /* GObject derivative GtkPageSetup */
  2377. # define SvGtkPageSetup(sv)    ((GtkPageSetup*)gperl_get_object_check (sv, GTK_TYPE_PAGE_SETUP))
  2378. # define newSVGtkPageSetup(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  2379.   typedef GtkPageSetup GtkPageSetup_ornull;
  2380. # define SvGtkPageSetup_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkPageSetup(sv) : NULL)
  2381. # define newSVGtkPageSetup_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  2382. typedef GtkPageSetup GtkPageSetup_noinc;
  2383. #define newSVGtkPageSetup_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  2384. typedef GtkPageSetup GtkPageSetup_noinc_ornull;
  2385. #define newSVGtkPageSetup_noinc_ornull(val)    ((val) ? newSVGtkPageSetup_noinc(val) : &PL_sv_undef)
  2386. #endif /* GTK_TYPE_PAGE_SETUP */
  2387.  
  2388. #ifdef GTK_TYPE_PAPER_SIZE
  2389.   /* GBoxed GtkPaperSize */
  2390.   typedef GtkPaperSize GtkPaperSize_ornull;
  2391. # define SvGtkPaperSize(sv)    ((GtkPaperSize *) gperl_get_boxed_check ((sv), GTK_TYPE_PAPER_SIZE))
  2392. # define SvGtkPaperSize_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkPaperSize (sv) : NULL)
  2393.   typedef GtkPaperSize GtkPaperSize_own;
  2394.   typedef GtkPaperSize GtkPaperSize_copy;
  2395.   typedef GtkPaperSize GtkPaperSize_own_ornull;
  2396. # define newSVGtkPaperSize(val)    (gperl_new_boxed ((gpointer) (val), GTK_TYPE_PAPER_SIZE, FALSE))
  2397. # define newSVGtkPaperSize_ornull(val)    ((val) ? newSVGtkPaperSize(val) : &PL_sv_undef)
  2398. # define newSVGtkPaperSize_own(val)    (gperl_new_boxed ((gpointer) (val), GTK_TYPE_PAPER_SIZE, TRUE))
  2399. # define newSVGtkPaperSize_copy(val)    (gperl_new_boxed_copy ((gpointer) (val), GTK_TYPE_PAPER_SIZE))
  2400. # define newSVGtkPaperSize_own_ornull(val)    ((val) ? newSVGtkPaperSize_own(val) : &PL_sv_undef)
  2401. #endif /* GTK_TYPE_PAPER_SIZE */
  2402.  
  2403. #ifdef GTK_TYPE_PRINT_CONTEXT
  2404.   /* GObject derivative GtkPrintContext */
  2405. # define SvGtkPrintContext(sv)    ((GtkPrintContext*)gperl_get_object_check (sv, GTK_TYPE_PRINT_CONTEXT))
  2406. # define newSVGtkPrintContext(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  2407.   typedef GtkPrintContext GtkPrintContext_ornull;
  2408. # define SvGtkPrintContext_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkPrintContext(sv) : NULL)
  2409. # define newSVGtkPrintContext_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  2410. typedef GtkPrintContext GtkPrintContext_noinc;
  2411. #define newSVGtkPrintContext_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  2412. typedef GtkPrintContext GtkPrintContext_noinc_ornull;
  2413. #define newSVGtkPrintContext_noinc_ornull(val)    ((val) ? newSVGtkPrintContext_noinc(val) : &PL_sv_undef)
  2414. #endif /* GTK_TYPE_PRINT_CONTEXT */
  2415.  
  2416. #ifdef GTK_TYPE_PRINT_OPERATION
  2417.   /* GObject derivative GtkPrintOperation */
  2418. # define SvGtkPrintOperation(sv)    ((GtkPrintOperation*)gperl_get_object_check (sv, GTK_TYPE_PRINT_OPERATION))
  2419. # define newSVGtkPrintOperation(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  2420.   typedef GtkPrintOperation GtkPrintOperation_ornull;
  2421. # define SvGtkPrintOperation_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkPrintOperation(sv) : NULL)
  2422. # define newSVGtkPrintOperation_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  2423. typedef GtkPrintOperation GtkPrintOperation_noinc;
  2424. #define newSVGtkPrintOperation_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  2425. typedef GtkPrintOperation GtkPrintOperation_noinc_ornull;
  2426. #define newSVGtkPrintOperation_noinc_ornull(val)    ((val) ? newSVGtkPrintOperation_noinc(val) : &PL_sv_undef)
  2427. #endif /* GTK_TYPE_PRINT_OPERATION */
  2428.  
  2429. #ifdef GTK_TYPE_PRINT_OPERATION_ACTION
  2430.   /* GEnum GtkPrintOperationAction */
  2431. # define SvGtkPrintOperationAction(sv)    ((GtkPrintOperationAction)gperl_convert_enum (GTK_TYPE_PRINT_OPERATION_ACTION, sv))
  2432. # define newSVGtkPrintOperationAction(val)    (gperl_convert_back_enum (GTK_TYPE_PRINT_OPERATION_ACTION, val))
  2433. #endif /* GTK_TYPE_PRINT_OPERATION_ACTION */
  2434.  
  2435. #ifdef GTK_TYPE_PRINT_OPERATION_PREVIEW
  2436.   /* GInterface derivative GtkPrintOperationPreview */
  2437. # define SvGtkPrintOperationPreview(sv)    ((GtkPrintOperationPreview*)gperl_get_object_check (sv, GTK_TYPE_PRINT_OPERATION_PREVIEW))
  2438. # define newSVGtkPrintOperationPreview(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  2439.   typedef GtkPrintOperationPreview GtkPrintOperationPreview_ornull;
  2440. # define SvGtkPrintOperationPreview_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkPrintOperationPreview(sv) : NULL)
  2441. # define newSVGtkPrintOperationPreview_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  2442. #endif /* GTK_TYPE_PRINT_OPERATION_PREVIEW */
  2443.  
  2444. #ifdef GTK_TYPE_PRINT_OPERATION_RESULT
  2445.   /* GEnum GtkPrintOperationResult */
  2446. # define SvGtkPrintOperationResult(sv)    ((GtkPrintOperationResult)gperl_convert_enum (GTK_TYPE_PRINT_OPERATION_RESULT, sv))
  2447. # define newSVGtkPrintOperationResult(val)    (gperl_convert_back_enum (GTK_TYPE_PRINT_OPERATION_RESULT, val))
  2448. #endif /* GTK_TYPE_PRINT_OPERATION_RESULT */
  2449.  
  2450. #ifdef GTK_TYPE_PRINT_SETTINGS
  2451.   /* GObject derivative GtkPrintSettings */
  2452. # define SvGtkPrintSettings(sv)    ((GtkPrintSettings*)gperl_get_object_check (sv, GTK_TYPE_PRINT_SETTINGS))
  2453. # define newSVGtkPrintSettings(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  2454.   typedef GtkPrintSettings GtkPrintSettings_ornull;
  2455. # define SvGtkPrintSettings_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkPrintSettings(sv) : NULL)
  2456. # define newSVGtkPrintSettings_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  2457. typedef GtkPrintSettings GtkPrintSettings_noinc;
  2458. #define newSVGtkPrintSettings_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  2459. typedef GtkPrintSettings GtkPrintSettings_noinc_ornull;
  2460. #define newSVGtkPrintSettings_noinc_ornull(val)    ((val) ? newSVGtkPrintSettings_noinc(val) : &PL_sv_undef)
  2461. #endif /* GTK_TYPE_PRINT_SETTINGS */
  2462.  
  2463. #ifdef GTK_TYPE_PRINT_STATUS
  2464.   /* GEnum GtkPrintStatus */
  2465. # define SvGtkPrintStatus(sv)    ((GtkPrintStatus)gperl_convert_enum (GTK_TYPE_PRINT_STATUS, sv))
  2466. # define newSVGtkPrintStatus(val)    (gperl_convert_back_enum (GTK_TYPE_PRINT_STATUS, val))
  2467. #endif /* GTK_TYPE_PRINT_STATUS */
  2468.  
  2469. #ifdef GTK_TYPE_RECENT_CHOOSER
  2470.   /* GInterface derivative GtkRecentChooser */
  2471. # define SvGtkRecentChooser(sv)    ((GtkRecentChooser*)gperl_get_object_check (sv, GTK_TYPE_RECENT_CHOOSER))
  2472. # define newSVGtkRecentChooser(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  2473.   typedef GtkRecentChooser GtkRecentChooser_ornull;
  2474. # define SvGtkRecentChooser_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkRecentChooser(sv) : NULL)
  2475. # define newSVGtkRecentChooser_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  2476. #endif /* GTK_TYPE_RECENT_CHOOSER */
  2477.  
  2478. #ifdef GTK_TYPE_RECENT_CHOOSER_DIALOG
  2479.   /* GtkObject derivative GtkRecentChooserDialog */
  2480. # define SvGtkRecentChooserDialog(sv)    ((GtkRecentChooserDialog*)gperl_get_object_check (sv, GTK_TYPE_RECENT_CHOOSER_DIALOG))
  2481. # define newSVGtkRecentChooserDialog(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2482.   typedef GtkRecentChooserDialog GtkRecentChooserDialog_ornull;
  2483. # define SvGtkRecentChooserDialog_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkRecentChooserDialog(sv) : NULL)
  2484. # define newSVGtkRecentChooserDialog_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2485. #endif /* GTK_TYPE_RECENT_CHOOSER_DIALOG */
  2486.  
  2487. #ifdef GTK_TYPE_RECENT_CHOOSER_MENU
  2488.   /* GtkObject derivative GtkRecentChooserMenu */
  2489. # define SvGtkRecentChooserMenu(sv)    ((GtkRecentChooserMenu*)gperl_get_object_check (sv, GTK_TYPE_RECENT_CHOOSER_MENU))
  2490. # define newSVGtkRecentChooserMenu(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2491.   typedef GtkRecentChooserMenu GtkRecentChooserMenu_ornull;
  2492. # define SvGtkRecentChooserMenu_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkRecentChooserMenu(sv) : NULL)
  2493. # define newSVGtkRecentChooserMenu_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2494. #endif /* GTK_TYPE_RECENT_CHOOSER_MENU */
  2495.  
  2496. #ifdef GTK_TYPE_RECENT_CHOOSER_WIDGET
  2497.   /* GtkObject derivative GtkRecentChooserWidget */
  2498. # define SvGtkRecentChooserWidget(sv)    ((GtkRecentChooserWidget*)gperl_get_object_check (sv, GTK_TYPE_RECENT_CHOOSER_WIDGET))
  2499. # define newSVGtkRecentChooserWidget(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2500.   typedef GtkRecentChooserWidget GtkRecentChooserWidget_ornull;
  2501. # define SvGtkRecentChooserWidget_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkRecentChooserWidget(sv) : NULL)
  2502. # define newSVGtkRecentChooserWidget_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2503. #endif /* GTK_TYPE_RECENT_CHOOSER_WIDGET */
  2504.  
  2505. #ifdef GTK_TYPE_RECENT_FILTER
  2506.   /* GtkObject derivative GtkRecentFilter */
  2507. # define SvGtkRecentFilter(sv)    ((GtkRecentFilter*)gperl_get_object_check (sv, GTK_TYPE_RECENT_FILTER))
  2508. # define newSVGtkRecentFilter(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2509.   typedef GtkRecentFilter GtkRecentFilter_ornull;
  2510. # define SvGtkRecentFilter_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkRecentFilter(sv) : NULL)
  2511. # define newSVGtkRecentFilter_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2512. #endif /* GTK_TYPE_RECENT_FILTER */
  2513.  
  2514. #ifdef GTK_TYPE_RECENT_FILTER_FLAGS
  2515.   /* GFlags GtkRecentFilterFlags */
  2516. # define SvGtkRecentFilterFlags(sv)    ((GtkRecentFilterFlags)gperl_convert_flags (GTK_TYPE_RECENT_FILTER_FLAGS, sv))
  2517. # define newSVGtkRecentFilterFlags(val)    (gperl_convert_back_flags (GTK_TYPE_RECENT_FILTER_FLAGS, val))
  2518. #endif /* GTK_TYPE_RECENT_FILTER_FLAGS */
  2519.  
  2520. #ifdef GTK_TYPE_RECENT_INFO
  2521.   /* GBoxed GtkRecentInfo */
  2522.   typedef GtkRecentInfo GtkRecentInfo_ornull;
  2523. # define SvGtkRecentInfo(sv)    ((GtkRecentInfo *) gperl_get_boxed_check ((sv), GTK_TYPE_RECENT_INFO))
  2524. # define SvGtkRecentInfo_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkRecentInfo (sv) : NULL)
  2525.   typedef GtkRecentInfo GtkRecentInfo_own;
  2526.   typedef GtkRecentInfo GtkRecentInfo_copy;
  2527.   typedef GtkRecentInfo GtkRecentInfo_own_ornull;
  2528. # define newSVGtkRecentInfo(val)    (gperl_new_boxed ((gpointer) (val), GTK_TYPE_RECENT_INFO, FALSE))
  2529. # define newSVGtkRecentInfo_ornull(val)    ((val) ? newSVGtkRecentInfo(val) : &PL_sv_undef)
  2530. # define newSVGtkRecentInfo_own(val)    (gperl_new_boxed ((gpointer) (val), GTK_TYPE_RECENT_INFO, TRUE))
  2531. # define newSVGtkRecentInfo_copy(val)    (gperl_new_boxed_copy ((gpointer) (val), GTK_TYPE_RECENT_INFO))
  2532. # define newSVGtkRecentInfo_own_ornull(val)    ((val) ? newSVGtkRecentInfo_own(val) : &PL_sv_undef)
  2533. #endif /* GTK_TYPE_RECENT_INFO */
  2534.  
  2535. #ifdef GTK_TYPE_RECENT_MANAGER
  2536.   /* GObject derivative GtkRecentManager */
  2537. # define SvGtkRecentManager(sv)    ((GtkRecentManager*)gperl_get_object_check (sv, GTK_TYPE_RECENT_MANAGER))
  2538. # define newSVGtkRecentManager(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  2539.   typedef GtkRecentManager GtkRecentManager_ornull;
  2540. # define SvGtkRecentManager_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkRecentManager(sv) : NULL)
  2541. # define newSVGtkRecentManager_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  2542. typedef GtkRecentManager GtkRecentManager_noinc;
  2543. #define newSVGtkRecentManager_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  2544. typedef GtkRecentManager GtkRecentManager_noinc_ornull;
  2545. #define newSVGtkRecentManager_noinc_ornull(val)    ((val) ? newSVGtkRecentManager_noinc(val) : &PL_sv_undef)
  2546. #endif /* GTK_TYPE_RECENT_MANAGER */
  2547.  
  2548. #ifdef GTK_TYPE_RECENT_SORT_TYPE
  2549.   /* GEnum GtkRecentSortType */
  2550. # define SvGtkRecentSortType(sv)    ((GtkRecentSortType)gperl_convert_enum (GTK_TYPE_RECENT_SORT_TYPE, sv))
  2551. # define newSVGtkRecentSortType(val)    (gperl_convert_back_enum (GTK_TYPE_RECENT_SORT_TYPE, val))
  2552. #endif /* GTK_TYPE_RECENT_SORT_TYPE */
  2553.  
  2554. #ifdef GTK_TYPE_SENSITIVITY_TYPE
  2555.   /* GEnum GtkSensitivityType */
  2556. # define SvGtkSensitivityType(sv)    ((GtkSensitivityType)gperl_convert_enum (GTK_TYPE_SENSITIVITY_TYPE, sv))
  2557. # define newSVGtkSensitivityType(val)    (gperl_convert_back_enum (GTK_TYPE_SENSITIVITY_TYPE, val))
  2558. #endif /* GTK_TYPE_SENSITIVITY_TYPE */
  2559.  
  2560. #ifdef GTK_TYPE_STATUS_ICON
  2561.   /* GObject derivative GtkStatusIcon */
  2562. # define SvGtkStatusIcon(sv)    ((GtkStatusIcon*)gperl_get_object_check (sv, GTK_TYPE_STATUS_ICON))
  2563. # define newSVGtkStatusIcon(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  2564.   typedef GtkStatusIcon GtkStatusIcon_ornull;
  2565. # define SvGtkStatusIcon_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkStatusIcon(sv) : NULL)
  2566. # define newSVGtkStatusIcon_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  2567. typedef GtkStatusIcon GtkStatusIcon_noinc;
  2568. #define newSVGtkStatusIcon_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  2569. typedef GtkStatusIcon GtkStatusIcon_noinc_ornull;
  2570. #define newSVGtkStatusIcon_noinc_ornull(val)    ((val) ? newSVGtkStatusIcon_noinc(val) : &PL_sv_undef)
  2571. #endif /* GTK_TYPE_STATUS_ICON */
  2572.  
  2573. #ifdef GTK_TYPE_TARGET_LIST
  2574.   /* GBoxed GtkTargetList */
  2575.   typedef GtkTargetList GtkTargetList_ornull;
  2576. # define SvGtkTargetList(sv)    ((GtkTargetList *) gperl_get_boxed_check ((sv), GTK_TYPE_TARGET_LIST))
  2577. # define SvGtkTargetList_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkTargetList (sv) : NULL)
  2578.   typedef GtkTargetList GtkTargetList_own;
  2579.   typedef GtkTargetList GtkTargetList_copy;
  2580.   typedef GtkTargetList GtkTargetList_own_ornull;
  2581. # define newSVGtkTargetList(val)    (gperl_new_boxed ((gpointer) (val), GTK_TYPE_TARGET_LIST, FALSE))
  2582. # define newSVGtkTargetList_ornull(val)    ((val) ? newSVGtkTargetList(val) : &PL_sv_undef)
  2583. # define newSVGtkTargetList_own(val)    (gperl_new_boxed ((gpointer) (val), GTK_TYPE_TARGET_LIST, TRUE))
  2584. # define newSVGtkTargetList_copy(val)    (gperl_new_boxed_copy ((gpointer) (val), GTK_TYPE_TARGET_LIST))
  2585. # define newSVGtkTargetList_own_ornull(val)    ((val) ? newSVGtkTargetList_own(val) : &PL_sv_undef)
  2586. #endif /* GTK_TYPE_TARGET_LIST */
  2587.  
  2588. #ifdef GTK_TYPE_TREE_VIEW_GRID_LINES
  2589.   /* GEnum GtkTreeViewGridLines */
  2590. # define SvGtkTreeViewGridLines(sv)    ((GtkTreeViewGridLines)gperl_convert_enum (GTK_TYPE_TREE_VIEW_GRID_LINES, sv))
  2591. # define newSVGtkTreeViewGridLines(val)    (gperl_convert_back_enum (GTK_TYPE_TREE_VIEW_GRID_LINES, val))
  2592. #endif /* GTK_TYPE_TREE_VIEW_GRID_LINES */
  2593.  
  2594. #ifdef GTK_TYPE_UNIT
  2595.   /* GEnum GtkUnit */
  2596. # define SvGtkUnit(sv)    ((GtkUnit)gperl_convert_enum (GTK_TYPE_UNIT, sv))
  2597. # define newSVGtkUnit(val)    (gperl_convert_back_enum (GTK_TYPE_UNIT, val))
  2598. #endif /* GTK_TYPE_UNIT */
  2599.  
  2600. #ifdef GTK_TYPE_BUILDABLE
  2601.   /* GInterface derivative GtkBuildable */
  2602. # define SvGtkBuildable(sv)    ((GtkBuildable*)gperl_get_object_check (sv, GTK_TYPE_BUILDABLE))
  2603. # define newSVGtkBuildable(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  2604.   typedef GtkBuildable GtkBuildable_ornull;
  2605. # define SvGtkBuildable_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkBuildable(sv) : NULL)
  2606. # define newSVGtkBuildable_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  2607. #endif /* GTK_TYPE_BUILDABLE */
  2608.  
  2609. #ifdef GTK_TYPE_BUILDER
  2610.   /* GObject derivative GtkBuilder */
  2611. # define SvGtkBuilder(sv)    ((GtkBuilder*)gperl_get_object_check (sv, GTK_TYPE_BUILDER))
  2612. # define newSVGtkBuilder(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  2613.   typedef GtkBuilder GtkBuilder_ornull;
  2614. # define SvGtkBuilder_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkBuilder(sv) : NULL)
  2615. # define newSVGtkBuilder_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  2616. typedef GtkBuilder GtkBuilder_noinc;
  2617. #define newSVGtkBuilder_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  2618. typedef GtkBuilder GtkBuilder_noinc_ornull;
  2619. #define newSVGtkBuilder_noinc_ornull(val)    ((val) ? newSVGtkBuilder_noinc(val) : &PL_sv_undef)
  2620. #endif /* GTK_TYPE_BUILDER */
  2621.  
  2622. #ifdef GTK_TYPE_RECENT_ACTION
  2623.   /* GObject derivative GtkRecentAction */
  2624. # define SvGtkRecentAction(sv)    ((GtkRecentAction*)gperl_get_object_check (sv, GTK_TYPE_RECENT_ACTION))
  2625. # define newSVGtkRecentAction(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  2626.   typedef GtkRecentAction GtkRecentAction_ornull;
  2627. # define SvGtkRecentAction_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkRecentAction(sv) : NULL)
  2628. # define newSVGtkRecentAction_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  2629. typedef GtkRecentAction GtkRecentAction_noinc;
  2630. #define newSVGtkRecentAction_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  2631. typedef GtkRecentAction GtkRecentAction_noinc_ornull;
  2632. #define newSVGtkRecentAction_noinc_ornull(val)    ((val) ? newSVGtkRecentAction_noinc(val) : &PL_sv_undef)
  2633. #endif /* GTK_TYPE_RECENT_ACTION */
  2634.  
  2635. #ifdef GTK_TYPE_SCALE_BUTTON
  2636.   /* GtkObject derivative GtkScaleButton */
  2637. # define SvGtkScaleButton(sv)    ((GtkScaleButton*)gperl_get_object_check (sv, GTK_TYPE_SCALE_BUTTON))
  2638. # define newSVGtkScaleButton(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2639.   typedef GtkScaleButton GtkScaleButton_ornull;
  2640. # define SvGtkScaleButton_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkScaleButton(sv) : NULL)
  2641. # define newSVGtkScaleButton_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2642. #endif /* GTK_TYPE_SCALE_BUTTON */
  2643.  
  2644. #ifdef GTK_TYPE_TOOLTIP
  2645.   /* GObject derivative GtkTooltip */
  2646. # define SvGtkTooltip(sv)    ((GtkTooltip*)gperl_get_object_check (sv, GTK_TYPE_TOOLTIP))
  2647. # define newSVGtkTooltip(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  2648.   typedef GtkTooltip GtkTooltip_ornull;
  2649. # define SvGtkTooltip_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkTooltip(sv) : NULL)
  2650. # define newSVGtkTooltip_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  2651. typedef GtkTooltip GtkTooltip_noinc;
  2652. #define newSVGtkTooltip_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  2653. typedef GtkTooltip GtkTooltip_noinc_ornull;
  2654. #define newSVGtkTooltip_noinc_ornull(val)    ((val) ? newSVGtkTooltip_noinc(val) : &PL_sv_undef)
  2655. #endif /* GTK_TYPE_TOOLTIP */
  2656.  
  2657. #ifdef GTK_TYPE_VOLUME_BUTTON
  2658.   /* GtkObject derivative GtkVolumeButton */
  2659. # define SvGtkVolumeButton(sv)    ((GtkVolumeButton*)gperl_get_object_check (sv, GTK_TYPE_VOLUME_BUTTON))
  2660. # define newSVGtkVolumeButton(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2661.   typedef GtkVolumeButton GtkVolumeButton_ornull;
  2662. # define SvGtkVolumeButton_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkVolumeButton(sv) : NULL)
  2663. # define newSVGtkVolumeButton_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2664. #endif /* GTK_TYPE_VOLUME_BUTTON */
  2665.  
  2666. #ifdef GDK_TYPE_DISPLAY
  2667.   /* GObject derivative GdkDisplay */
  2668. # define SvGdkDisplay(sv)    ((GdkDisplay*)gperl_get_object_check (sv, GDK_TYPE_DISPLAY))
  2669. # define newSVGdkDisplay(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  2670.   typedef GdkDisplay GdkDisplay_ornull;
  2671. # define SvGdkDisplay_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGdkDisplay(sv) : NULL)
  2672. # define newSVGdkDisplay_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  2673. typedef GdkDisplay GdkDisplay_noinc;
  2674. #define newSVGdkDisplay_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  2675. typedef GdkDisplay GdkDisplay_noinc_ornull;
  2676. #define newSVGdkDisplay_noinc_ornull(val)    ((val) ? newSVGdkDisplay_noinc(val) : &PL_sv_undef)
  2677. #endif /* GDK_TYPE_DISPLAY */
  2678.  
  2679. #ifdef GDK_TYPE_DISPLAY_MANAGER
  2680.   /* GObject derivative GdkDisplayManager */
  2681. # define SvGdkDisplayManager(sv)    ((GdkDisplayManager*)gperl_get_object_check (sv, GDK_TYPE_DISPLAY_MANAGER))
  2682. # define newSVGdkDisplayManager(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  2683.   typedef GdkDisplayManager GdkDisplayManager_ornull;
  2684. # define SvGdkDisplayManager_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGdkDisplayManager(sv) : NULL)
  2685. # define newSVGdkDisplayManager_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  2686. typedef GdkDisplayManager GdkDisplayManager_noinc;
  2687. #define newSVGdkDisplayManager_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  2688. typedef GdkDisplayManager GdkDisplayManager_noinc_ornull;
  2689. #define newSVGdkDisplayManager_noinc_ornull(val)    ((val) ? newSVGdkDisplayManager_noinc(val) : &PL_sv_undef)
  2690. #endif /* GDK_TYPE_DISPLAY_MANAGER */
  2691.  
  2692. #ifdef GDK_TYPE_SCREEN
  2693.   /* GObject derivative GdkScreen */
  2694. # define SvGdkScreen(sv)    ((GdkScreen*)gperl_get_object_check (sv, GDK_TYPE_SCREEN))
  2695. # define newSVGdkScreen(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  2696.   typedef GdkScreen GdkScreen_ornull;
  2697. # define SvGdkScreen_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGdkScreen(sv) : NULL)
  2698. # define newSVGdkScreen_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  2699. typedef GdkScreen GdkScreen_noinc;
  2700. #define newSVGdkScreen_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  2701. typedef GdkScreen GdkScreen_noinc_ornull;
  2702. #define newSVGdkScreen_noinc_ornull(val)    ((val) ? newSVGdkScreen_noinc(val) : &PL_sv_undef)
  2703. #endif /* GDK_TYPE_SCREEN */
  2704.  
  2705. #ifdef GTK_TYPE_CLIPBOARD
  2706.   /* GObject derivative GtkClipboard */
  2707. # define SvGtkClipboard(sv)    ((GtkClipboard*)gperl_get_object_check (sv, GTK_TYPE_CLIPBOARD))
  2708. # define newSVGtkClipboard(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  2709.   typedef GtkClipboard GtkClipboard_ornull;
  2710. # define SvGtkClipboard_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkClipboard(sv) : NULL)
  2711. # define newSVGtkClipboard_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  2712. typedef GtkClipboard GtkClipboard_noinc;
  2713. #define newSVGtkClipboard_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  2714. typedef GtkClipboard GtkClipboard_noinc_ornull;
  2715. #define newSVGtkClipboard_noinc_ornull(val)    ((val) ? newSVGtkClipboard_noinc(val) : &PL_sv_undef)
  2716. #endif /* GTK_TYPE_CLIPBOARD */
  2717.  
  2718. #ifdef GTK_TYPE_COMBO_BOX_ENTRY
  2719.   /* GtkObject derivative GtkComboBoxEntry */
  2720. # define SvGtkComboBoxEntry(sv)    ((GtkComboBoxEntry*)gperl_get_object_check (sv, GTK_TYPE_COMBO_BOX_ENTRY))
  2721. # define newSVGtkComboBoxEntry(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2722.   typedef GtkComboBoxEntry GtkComboBoxEntry_ornull;
  2723. # define SvGtkComboBoxEntry_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkComboBoxEntry(sv) : NULL)
  2724. # define newSVGtkComboBoxEntry_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2725. #endif /* GTK_TYPE_COMBO_BOX_ENTRY */
  2726.  
  2727. #ifdef GTK_TYPE_COMBO_BOX
  2728.   /* GtkObject derivative GtkComboBox */
  2729. # define SvGtkComboBox(sv)    ((GtkComboBox*)gperl_get_object_check (sv, GTK_TYPE_COMBO_BOX))
  2730. # define newSVGtkComboBox(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2731.   typedef GtkComboBox GtkComboBox_ornull;
  2732. # define SvGtkComboBox_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkComboBox(sv) : NULL)
  2733. # define newSVGtkComboBox_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2734. #endif /* GTK_TYPE_COMBO_BOX */
  2735.  
  2736. #ifdef GTK_TYPE_CELL_LAYOUT
  2737.   /* GInterface derivative GtkCellLayout */
  2738. # define SvGtkCellLayout(sv)    ((GtkCellLayout*)gperl_get_object_check (sv, GTK_TYPE_CELL_LAYOUT))
  2739. # define newSVGtkCellLayout(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  2740.   typedef GtkCellLayout GtkCellLayout_ornull;
  2741. # define SvGtkCellLayout_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkCellLayout(sv) : NULL)
  2742. # define newSVGtkCellLayout_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  2743. #endif /* GTK_TYPE_CELL_LAYOUT */
  2744.  
  2745. #ifdef GTK_TYPE_COLOR_BUTTON
  2746.   /* GtkObject derivative GtkColorButton */
  2747. # define SvGtkColorButton(sv)    ((GtkColorButton*)gperl_get_object_check (sv, GTK_TYPE_COLOR_BUTTON))
  2748. # define newSVGtkColorButton(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2749.   typedef GtkColorButton GtkColorButton_ornull;
  2750. # define SvGtkColorButton_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkColorButton(sv) : NULL)
  2751. # define newSVGtkColorButton_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2752. #endif /* GTK_TYPE_COLOR_BUTTON */
  2753.  
  2754. #ifdef GTK_TYPE_FONT_BUTTON
  2755.   /* GtkObject derivative GtkFontButton */
  2756. # define SvGtkFontButton(sv)    ((GtkFontButton*)gperl_get_object_check (sv, GTK_TYPE_FONT_BUTTON))
  2757. # define newSVGtkFontButton(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2758.   typedef GtkFontButton GtkFontButton_ornull;
  2759. # define SvGtkFontButton_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkFontButton(sv) : NULL)
  2760. # define newSVGtkFontButton_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2761. #endif /* GTK_TYPE_FONT_BUTTON */
  2762.  
  2763. #ifdef GTK_TYPE_ENTRY_COMPLETION
  2764.   /* GObject derivative GtkEntryCompletion */
  2765. # define SvGtkEntryCompletion(sv)    ((GtkEntryCompletion*)gperl_get_object_check (sv, GTK_TYPE_ENTRY_COMPLETION))
  2766. # define newSVGtkEntryCompletion(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  2767.   typedef GtkEntryCompletion GtkEntryCompletion_ornull;
  2768. # define SvGtkEntryCompletion_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkEntryCompletion(sv) : NULL)
  2769. # define newSVGtkEntryCompletion_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  2770. typedef GtkEntryCompletion GtkEntryCompletion_noinc;
  2771. #define newSVGtkEntryCompletion_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  2772. typedef GtkEntryCompletion GtkEntryCompletion_noinc_ornull;
  2773. #define newSVGtkEntryCompletion_noinc_ornull(val)    ((val) ? newSVGtkEntryCompletion_noinc(val) : &PL_sv_undef)
  2774. #endif /* GTK_TYPE_ENTRY_COMPLETION */
  2775.  
  2776. #ifdef GTK_TYPE_EXPANDER
  2777.   /* GtkObject derivative GtkExpander */
  2778. # define SvGtkExpander(sv)    ((GtkExpander*)gperl_get_object_check (sv, GTK_TYPE_EXPANDER))
  2779. # define newSVGtkExpander(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2780.   typedef GtkExpander GtkExpander_ornull;
  2781. # define SvGtkExpander_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkExpander(sv) : NULL)
  2782. # define newSVGtkExpander_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2783. #endif /* GTK_TYPE_EXPANDER */
  2784.  
  2785. #ifdef GTK_TYPE_FILE_CHOOSER
  2786.   /* GInterface derivative GtkFileChooser */
  2787. # define SvGtkFileChooser(sv)    ((GtkFileChooser*)gperl_get_object_check (sv, GTK_TYPE_FILE_CHOOSER))
  2788. # define newSVGtkFileChooser(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  2789.   typedef GtkFileChooser GtkFileChooser_ornull;
  2790. # define SvGtkFileChooser_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkFileChooser(sv) : NULL)
  2791. # define newSVGtkFileChooser_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  2792. #endif /* GTK_TYPE_FILE_CHOOSER */
  2793.  
  2794. #ifdef GTK_TYPE_FILE_CHOOSER_ACTION
  2795.   /* GEnum GtkFileChooserAction */
  2796. # define SvGtkFileChooserAction(sv)    ((GtkFileChooserAction)gperl_convert_enum (GTK_TYPE_FILE_CHOOSER_ACTION, sv))
  2797. # define newSVGtkFileChooserAction(val)    (gperl_convert_back_enum (GTK_TYPE_FILE_CHOOSER_ACTION, val))
  2798. #endif /* GTK_TYPE_FILE_CHOOSER_ACTION */
  2799.  
  2800. #ifdef GTK_TYPE_FILE_CHOOSER_ERROR
  2801.   /* GEnum GtkFileChooserError */
  2802. # define SvGtkFileChooserError(sv)    ((GtkFileChooserError)gperl_convert_enum (GTK_TYPE_FILE_CHOOSER_ERROR, sv))
  2803. # define newSVGtkFileChooserError(val)    (gperl_convert_back_enum (GTK_TYPE_FILE_CHOOSER_ERROR, val))
  2804. #endif /* GTK_TYPE_FILE_CHOOSER_ERROR */
  2805.  
  2806. #ifdef GTK_TYPE_FILE_CHOOSER_DIALOG
  2807.   /* GtkObject derivative GtkFileChooserDialog */
  2808. # define SvGtkFileChooserDialog(sv)    ((GtkFileChooserDialog*)gperl_get_object_check (sv, GTK_TYPE_FILE_CHOOSER_DIALOG))
  2809. # define newSVGtkFileChooserDialog(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2810.   typedef GtkFileChooserDialog GtkFileChooserDialog_ornull;
  2811. # define SvGtkFileChooserDialog_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkFileChooserDialog(sv) : NULL)
  2812. # define newSVGtkFileChooserDialog_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2813. #endif /* GTK_TYPE_FILE_CHOOSER_DIALOG */
  2814.  
  2815. #ifdef GTK_TYPE_FILE_CHOOSER_WIDGET
  2816.   /* GtkObject derivative GtkFileChooserWidget */
  2817. # define SvGtkFileChooserWidget(sv)    ((GtkFileChooserWidget*)gperl_get_object_check (sv, GTK_TYPE_FILE_CHOOSER_WIDGET))
  2818. # define newSVGtkFileChooserWidget(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2819.   typedef GtkFileChooserWidget GtkFileChooserWidget_ornull;
  2820. # define SvGtkFileChooserWidget_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkFileChooserWidget(sv) : NULL)
  2821. # define newSVGtkFileChooserWidget_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2822. #endif /* GTK_TYPE_FILE_CHOOSER_WIDGET */
  2823.  
  2824. #ifdef GTK_TYPE_FILE_FILTER
  2825.   /* GtkObject derivative GtkFileFilter */
  2826. # define SvGtkFileFilter(sv)    ((GtkFileFilter*)gperl_get_object_check (sv, GTK_TYPE_FILE_FILTER))
  2827. # define newSVGtkFileFilter(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2828.   typedef GtkFileFilter GtkFileFilter_ornull;
  2829. # define SvGtkFileFilter_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkFileFilter(sv) : NULL)
  2830. # define newSVGtkFileFilter_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2831. #endif /* GTK_TYPE_FILE_FILTER */
  2832.  
  2833. #ifdef GTK_TYPE_FILE_FILTER_INFO
  2834.   /* GBoxed GtkFileFilterInfo */
  2835.   typedef GtkFileFilterInfo GtkFileFilterInfo_ornull;
  2836. # define SvGtkFileFilterInfo(sv)    ((GtkFileFilterInfo *) gperl_get_boxed_check ((sv), GTK_TYPE_FILE_FILTER_INFO))
  2837. # define SvGtkFileFilterInfo_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkFileFilterInfo (sv) : NULL)
  2838.   typedef GtkFileFilterInfo GtkFileFilterInfo_own;
  2839.   typedef GtkFileFilterInfo GtkFileFilterInfo_copy;
  2840.   typedef GtkFileFilterInfo GtkFileFilterInfo_own_ornull;
  2841. # define newSVGtkFileFilterInfo(val)    (gperl_new_boxed ((gpointer) (val), GTK_TYPE_FILE_FILTER_INFO, FALSE))
  2842. # define newSVGtkFileFilterInfo_ornull(val)    ((val) ? newSVGtkFileFilterInfo(val) : &PL_sv_undef)
  2843. # define newSVGtkFileFilterInfo_own(val)    (gperl_new_boxed ((gpointer) (val), GTK_TYPE_FILE_FILTER_INFO, TRUE))
  2844. # define newSVGtkFileFilterInfo_copy(val)    (gperl_new_boxed_copy ((gpointer) (val), GTK_TYPE_FILE_FILTER_INFO))
  2845. # define newSVGtkFileFilterInfo_own_ornull(val)    ((val) ? newSVGtkFileFilterInfo_own(val) : &PL_sv_undef)
  2846. #endif /* GTK_TYPE_FILE_FILTER_INFO */
  2847.  
  2848. #ifdef GTK_TYPE_FILE_FILTER_FLAGS
  2849.   /* GFlags GtkFileFilterFlags */
  2850. # define SvGtkFileFilterFlags(sv)    ((GtkFileFilterFlags)gperl_convert_flags (GTK_TYPE_FILE_FILTER_FLAGS, sv))
  2851. # define newSVGtkFileFilterFlags(val)    (gperl_convert_back_flags (GTK_TYPE_FILE_FILTER_FLAGS, val))
  2852. #endif /* GTK_TYPE_FILE_FILTER_FLAGS */
  2853.  
  2854. #ifdef GTK_TYPE_ICON_THEME
  2855.   /* GObject derivative GtkIconTheme */
  2856. # define SvGtkIconTheme(sv)    ((GtkIconTheme*)gperl_get_object_check (sv, GTK_TYPE_ICON_THEME))
  2857. # define newSVGtkIconTheme(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  2858.   typedef GtkIconTheme GtkIconTheme_ornull;
  2859. # define SvGtkIconTheme_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkIconTheme(sv) : NULL)
  2860. # define newSVGtkIconTheme_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  2861. typedef GtkIconTheme GtkIconTheme_noinc;
  2862. #define newSVGtkIconTheme_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  2863. typedef GtkIconTheme GtkIconTheme_noinc_ornull;
  2864. #define newSVGtkIconTheme_noinc_ornull(val)    ((val) ? newSVGtkIconTheme_noinc(val) : &PL_sv_undef)
  2865. #endif /* GTK_TYPE_ICON_THEME */
  2866.  
  2867. #ifdef GTK_TYPE_ICON_THEME_ERROR
  2868.   /* GEnum GtkIconThemeError */
  2869. # define SvGtkIconThemeError(sv)    ((GtkIconThemeError)gperl_convert_enum (GTK_TYPE_ICON_THEME_ERROR, sv))
  2870. # define newSVGtkIconThemeError(val)    (gperl_convert_back_enum (GTK_TYPE_ICON_THEME_ERROR, val))
  2871. #endif /* GTK_TYPE_ICON_THEME_ERROR */
  2872.  
  2873. #ifdef GTK_TYPE_ICON_INFO
  2874.   /* GBoxed GtkIconInfo */
  2875.   typedef GtkIconInfo GtkIconInfo_ornull;
  2876. # define SvGtkIconInfo(sv)    ((GtkIconInfo *) gperl_get_boxed_check ((sv), GTK_TYPE_ICON_INFO))
  2877. # define SvGtkIconInfo_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkIconInfo (sv) : NULL)
  2878.   typedef GtkIconInfo GtkIconInfo_own;
  2879.   typedef GtkIconInfo GtkIconInfo_copy;
  2880.   typedef GtkIconInfo GtkIconInfo_own_ornull;
  2881. # define newSVGtkIconInfo(val)    (gperl_new_boxed ((gpointer) (val), GTK_TYPE_ICON_INFO, FALSE))
  2882. # define newSVGtkIconInfo_ornull(val)    ((val) ? newSVGtkIconInfo(val) : &PL_sv_undef)
  2883. # define newSVGtkIconInfo_own(val)    (gperl_new_boxed ((gpointer) (val), GTK_TYPE_ICON_INFO, TRUE))
  2884. # define newSVGtkIconInfo_copy(val)    (gperl_new_boxed_copy ((gpointer) (val), GTK_TYPE_ICON_INFO))
  2885. # define newSVGtkIconInfo_own_ornull(val)    ((val) ? newSVGtkIconInfo_own(val) : &PL_sv_undef)
  2886. #endif /* GTK_TYPE_ICON_INFO */
  2887.  
  2888. #ifdef GTK_TYPE_ICON_LOOKUP_FLAGS
  2889.   /* GFlags GtkIconLookupFlags */
  2890. # define SvGtkIconLookupFlags(sv)    ((GtkIconLookupFlags)gperl_convert_flags (GTK_TYPE_ICON_LOOKUP_FLAGS, sv))
  2891. # define newSVGtkIconLookupFlags(val)    (gperl_convert_back_flags (GTK_TYPE_ICON_LOOKUP_FLAGS, val))
  2892. #endif /* GTK_TYPE_ICON_LOOKUP_FLAGS */
  2893.  
  2894. #ifdef GTK_TYPE_TREE_MODEL_FILTER
  2895.   /* GObject derivative GtkTreeModelFilter */
  2896. # define SvGtkTreeModelFilter(sv)    ((GtkTreeModelFilter*)gperl_get_object_check (sv, GTK_TYPE_TREE_MODEL_FILTER))
  2897. # define newSVGtkTreeModelFilter(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  2898.   typedef GtkTreeModelFilter GtkTreeModelFilter_ornull;
  2899. # define SvGtkTreeModelFilter_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkTreeModelFilter(sv) : NULL)
  2900. # define newSVGtkTreeModelFilter_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  2901. typedef GtkTreeModelFilter GtkTreeModelFilter_noinc;
  2902. #define newSVGtkTreeModelFilter_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  2903. typedef GtkTreeModelFilter GtkTreeModelFilter_noinc_ornull;
  2904. #define newSVGtkTreeModelFilter_noinc_ornull(val)    ((val) ? newSVGtkTreeModelFilter_noinc(val) : &PL_sv_undef)
  2905. #endif /* GTK_TYPE_TREE_MODEL_FILTER */
  2906.  
  2907. #ifdef GTK_TYPE_UI_MANAGER
  2908.   /* GObject derivative GtkUIManager */
  2909. # define SvGtkUIManager(sv)    ((GtkUIManager*)gperl_get_object_check (sv, GTK_TYPE_UI_MANAGER))
  2910. # define newSVGtkUIManager(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  2911.   typedef GtkUIManager GtkUIManager_ornull;
  2912. # define SvGtkUIManager_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkUIManager(sv) : NULL)
  2913. # define newSVGtkUIManager_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  2914. typedef GtkUIManager GtkUIManager_noinc;
  2915. #define newSVGtkUIManager_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  2916. typedef GtkUIManager GtkUIManager_noinc_ornull;
  2917. #define newSVGtkUIManager_noinc_ornull(val)    ((val) ? newSVGtkUIManager_noinc(val) : &PL_sv_undef)
  2918. #endif /* GTK_TYPE_UI_MANAGER */
  2919.  
  2920. #ifdef GTK_TYPE_UI_MANAGER_ITEM_TYPE
  2921.   /* GFlags GtkUIManagerItemType */
  2922. # define SvGtkUIManagerItemType(sv)    ((GtkUIManagerItemType)gperl_convert_flags (GTK_TYPE_UI_MANAGER_ITEM_TYPE, sv))
  2923. # define newSVGtkUIManagerItemType(val)    (gperl_convert_back_flags (GTK_TYPE_UI_MANAGER_ITEM_TYPE, val))
  2924. #endif /* GTK_TYPE_UI_MANAGER_ITEM_TYPE */
  2925.  
  2926. #ifdef GTK_TYPE_ACTION_GROUP
  2927.   /* GObject derivative GtkActionGroup */
  2928. # define SvGtkActionGroup(sv)    ((GtkActionGroup*)gperl_get_object_check (sv, GTK_TYPE_ACTION_GROUP))
  2929. # define newSVGtkActionGroup(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  2930.   typedef GtkActionGroup GtkActionGroup_ornull;
  2931. # define SvGtkActionGroup_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkActionGroup(sv) : NULL)
  2932. # define newSVGtkActionGroup_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  2933. typedef GtkActionGroup GtkActionGroup_noinc;
  2934. #define newSVGtkActionGroup_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  2935. typedef GtkActionGroup GtkActionGroup_noinc_ornull;
  2936. #define newSVGtkActionGroup_noinc_ornull(val)    ((val) ? newSVGtkActionGroup_noinc(val) : &PL_sv_undef)
  2937. #endif /* GTK_TYPE_ACTION_GROUP */
  2938.  
  2939. #ifdef GTK_TYPE_ACTION
  2940.   /* GObject derivative GtkAction */
  2941. # define SvGtkAction(sv)    ((GtkAction*)gperl_get_object_check (sv, GTK_TYPE_ACTION))
  2942. # define newSVGtkAction(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  2943.   typedef GtkAction GtkAction_ornull;
  2944. # define SvGtkAction_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkAction(sv) : NULL)
  2945. # define newSVGtkAction_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  2946. typedef GtkAction GtkAction_noinc;
  2947. #define newSVGtkAction_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  2948. typedef GtkAction GtkAction_noinc_ornull;
  2949. #define newSVGtkAction_noinc_ornull(val)    ((val) ? newSVGtkAction_noinc(val) : &PL_sv_undef)
  2950. #endif /* GTK_TYPE_ACTION */
  2951.  
  2952. #ifdef GTK_TYPE_TOGGLE_ACTION
  2953.   /* GObject derivative GtkToggleAction */
  2954. # define SvGtkToggleAction(sv)    ((GtkToggleAction*)gperl_get_object_check (sv, GTK_TYPE_TOGGLE_ACTION))
  2955. # define newSVGtkToggleAction(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  2956.   typedef GtkToggleAction GtkToggleAction_ornull;
  2957. # define SvGtkToggleAction_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkToggleAction(sv) : NULL)
  2958. # define newSVGtkToggleAction_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  2959. typedef GtkToggleAction GtkToggleAction_noinc;
  2960. #define newSVGtkToggleAction_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  2961. typedef GtkToggleAction GtkToggleAction_noinc_ornull;
  2962. #define newSVGtkToggleAction_noinc_ornull(val)    ((val) ? newSVGtkToggleAction_noinc(val) : &PL_sv_undef)
  2963. #endif /* GTK_TYPE_TOGGLE_ACTION */
  2964.  
  2965. #ifdef GTK_TYPE_RADIO_ACTION
  2966.   /* GObject derivative GtkRadioAction */
  2967. # define SvGtkRadioAction(sv)    ((GtkRadioAction*)gperl_get_object_check (sv, GTK_TYPE_RADIO_ACTION))
  2968. # define newSVGtkRadioAction(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  2969.   typedef GtkRadioAction GtkRadioAction_ornull;
  2970. # define SvGtkRadioAction_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkRadioAction(sv) : NULL)
  2971. # define newSVGtkRadioAction_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  2972. typedef GtkRadioAction GtkRadioAction_noinc;
  2973. #define newSVGtkRadioAction_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  2974. typedef GtkRadioAction GtkRadioAction_noinc_ornull;
  2975. #define newSVGtkRadioAction_noinc_ornull(val)    ((val) ? newSVGtkRadioAction_noinc(val) : &PL_sv_undef)
  2976. #endif /* GTK_TYPE_RADIO_ACTION */
  2977.  
  2978. #ifdef GTK_TYPE_ACTION_ENTRY
  2979.   /* GBoxed GtkActionEntry */
  2980.   typedef GtkActionEntry GtkActionEntry_ornull;
  2981. # define SvGtkActionEntry(sv)    ((GtkActionEntry *) gperl_get_boxed_check ((sv), GTK_TYPE_ACTION_ENTRY))
  2982. # define SvGtkActionEntry_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkActionEntry (sv) : NULL)
  2983.   typedef GtkActionEntry GtkActionEntry_own;
  2984.   typedef GtkActionEntry GtkActionEntry_copy;
  2985.   typedef GtkActionEntry GtkActionEntry_own_ornull;
  2986. # define newSVGtkActionEntry(val)    (gperl_new_boxed ((gpointer) (val), GTK_TYPE_ACTION_ENTRY, FALSE))
  2987. # define newSVGtkActionEntry_ornull(val)    ((val) ? newSVGtkActionEntry(val) : &PL_sv_undef)
  2988. # define newSVGtkActionEntry_own(val)    (gperl_new_boxed ((gpointer) (val), GTK_TYPE_ACTION_ENTRY, TRUE))
  2989. # define newSVGtkActionEntry_copy(val)    (gperl_new_boxed_copy ((gpointer) (val), GTK_TYPE_ACTION_ENTRY))
  2990. # define newSVGtkActionEntry_own_ornull(val)    ((val) ? newSVGtkActionEntry_own(val) : &PL_sv_undef)
  2991. #endif /* GTK_TYPE_ACTION_ENTRY */
  2992.  
  2993. #ifdef GTK_TYPE_TOGGLE_ACTION_ENTRY
  2994.   /* GBoxed GtkToggleActionEntry */
  2995.   typedef GtkToggleActionEntry GtkToggleActionEntry_ornull;
  2996. # define SvGtkToggleActionEntry(sv)    ((GtkToggleActionEntry *) gperl_get_boxed_check ((sv), GTK_TYPE_TOGGLE_ACTION_ENTRY))
  2997. # define SvGtkToggleActionEntry_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkToggleActionEntry (sv) : NULL)
  2998.   typedef GtkToggleActionEntry GtkToggleActionEntry_own;
  2999.   typedef GtkToggleActionEntry GtkToggleActionEntry_copy;
  3000.   typedef GtkToggleActionEntry GtkToggleActionEntry_own_ornull;
  3001. # define newSVGtkToggleActionEntry(val)    (gperl_new_boxed ((gpointer) (val), GTK_TYPE_TOGGLE_ACTION_ENTRY, FALSE))
  3002. # define newSVGtkToggleActionEntry_ornull(val)    ((val) ? newSVGtkToggleActionEntry(val) : &PL_sv_undef)
  3003. # define newSVGtkToggleActionEntry_own(val)    (gperl_new_boxed ((gpointer) (val), GTK_TYPE_TOGGLE_ACTION_ENTRY, TRUE))
  3004. # define newSVGtkToggleActionEntry_copy(val)    (gperl_new_boxed_copy ((gpointer) (val), GTK_TYPE_TOGGLE_ACTION_ENTRY))
  3005. # define newSVGtkToggleActionEntry_own_ornull(val)    ((val) ? newSVGtkToggleActionEntry_own(val) : &PL_sv_undef)
  3006. #endif /* GTK_TYPE_TOGGLE_ACTION_ENTRY */
  3007.  
  3008. #ifdef GTK_TYPE_RADIO_ACTION_ENTRY
  3009.   /* GBoxed GtkRadioActionEntry */
  3010.   typedef GtkRadioActionEntry GtkRadioActionEntry_ornull;
  3011. # define SvGtkRadioActionEntry(sv)    ((GtkRadioActionEntry *) gperl_get_boxed_check ((sv), GTK_TYPE_RADIO_ACTION_ENTRY))
  3012. # define SvGtkRadioActionEntry_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkRadioActionEntry (sv) : NULL)
  3013.   typedef GtkRadioActionEntry GtkRadioActionEntry_own;
  3014.   typedef GtkRadioActionEntry GtkRadioActionEntry_copy;
  3015.   typedef GtkRadioActionEntry GtkRadioActionEntry_own_ornull;
  3016. # define newSVGtkRadioActionEntry(val)    (gperl_new_boxed ((gpointer) (val), GTK_TYPE_RADIO_ACTION_ENTRY, FALSE))
  3017. # define newSVGtkRadioActionEntry_ornull(val)    ((val) ? newSVGtkRadioActionEntry(val) : &PL_sv_undef)
  3018. # define newSVGtkRadioActionEntry_own(val)    (gperl_new_boxed ((gpointer) (val), GTK_TYPE_RADIO_ACTION_ENTRY, TRUE))
  3019. # define newSVGtkRadioActionEntry_copy(val)    (gperl_new_boxed_copy ((gpointer) (val), GTK_TYPE_RADIO_ACTION_ENTRY))
  3020. # define newSVGtkRadioActionEntry_own_ornull(val)    ((val) ? newSVGtkRadioActionEntry_own(val) : &PL_sv_undef)
  3021. #endif /* GTK_TYPE_RADIO_ACTION_ENTRY */
  3022.  
  3023. #ifdef GTK_TYPE_TOOL_ITEM
  3024.   /* GtkObject derivative GtkToolItem */
  3025. # define SvGtkToolItem(sv)    ((GtkToolItem*)gperl_get_object_check (sv, GTK_TYPE_TOOL_ITEM))
  3026. # define newSVGtkToolItem(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  3027.   typedef GtkToolItem GtkToolItem_ornull;
  3028. # define SvGtkToolItem_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkToolItem(sv) : NULL)
  3029. # define newSVGtkToolItem_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  3030. #endif /* GTK_TYPE_TOOL_ITEM */
  3031.  
  3032. #ifdef GTK_TYPE_TOOL_BUTTON
  3033.   /* GtkObject derivative GtkToolButton */
  3034. # define SvGtkToolButton(sv)    ((GtkToolButton*)gperl_get_object_check (sv, GTK_TYPE_TOOL_BUTTON))
  3035. # define newSVGtkToolButton(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  3036.   typedef GtkToolButton GtkToolButton_ornull;
  3037. # define SvGtkToolButton_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkToolButton(sv) : NULL)
  3038. # define newSVGtkToolButton_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  3039. #endif /* GTK_TYPE_TOOL_BUTTON */
  3040.  
  3041. #ifdef GTK_TYPE_TOGGLE_TOOL_BUTTON
  3042.   /* GtkObject derivative GtkToggleToolButton */
  3043. # define SvGtkToggleToolButton(sv)    ((GtkToggleToolButton*)gperl_get_object_check (sv, GTK_TYPE_TOGGLE_TOOL_BUTTON))
  3044. # define newSVGtkToggleToolButton(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  3045.   typedef GtkToggleToolButton GtkToggleToolButton_ornull;
  3046. # define SvGtkToggleToolButton_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkToggleToolButton(sv) : NULL)
  3047. # define newSVGtkToggleToolButton_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  3048. #endif /* GTK_TYPE_TOGGLE_TOOL_BUTTON */
  3049.  
  3050. #ifdef GTK_TYPE_RADIO_TOOL_BUTTON
  3051.   /* GtkObject derivative GtkRadioToolButton */
  3052. # define SvGtkRadioToolButton(sv)    ((GtkRadioToolButton*)gperl_get_object_check (sv, GTK_TYPE_RADIO_TOOL_BUTTON))
  3053. # define newSVGtkRadioToolButton(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  3054.   typedef GtkRadioToolButton GtkRadioToolButton_ornull;
  3055. # define SvGtkRadioToolButton_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkRadioToolButton(sv) : NULL)
  3056. # define newSVGtkRadioToolButton_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  3057. #endif /* GTK_TYPE_RADIO_TOOL_BUTTON */
  3058.  
  3059. #ifdef GTK_TYPE_SEPARATOR_TOOL_ITEM
  3060.   /* GtkObject derivative GtkSeparatorToolItem */
  3061. # define SvGtkSeparatorToolItem(sv)    ((GtkSeparatorToolItem*)gperl_get_object_check (sv, GTK_TYPE_SEPARATOR_TOOL_ITEM))
  3062. # define newSVGtkSeparatorToolItem(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  3063.   typedef GtkSeparatorToolItem GtkSeparatorToolItem_ornull;
  3064. # define SvGtkSeparatorToolItem_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkSeparatorToolItem(sv) : NULL)
  3065. # define newSVGtkSeparatorToolItem_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  3066. #endif /* GTK_TYPE_SEPARATOR_TOOL_ITEM */
  3067.  
  3068. #ifdef GTK_TYPE_ACCEL_MAP
  3069.   /* GObject derivative GtkAccelMap */
  3070. # define SvGtkAccelMap(sv)    ((GtkAccelMap*)gperl_get_object_check (sv, GTK_TYPE_ACCEL_MAP))
  3071. # define newSVGtkAccelMap(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  3072.   typedef GtkAccelMap GtkAccelMap_ornull;
  3073. # define SvGtkAccelMap_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkAccelMap(sv) : NULL)
  3074. # define newSVGtkAccelMap_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  3075. typedef GtkAccelMap GtkAccelMap_noinc;
  3076. #define newSVGtkAccelMap_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  3077. typedef GtkAccelMap GtkAccelMap_noinc_ornull;
  3078. #define newSVGtkAccelMap_noinc_ornull(val)    ((val) ? newSVGtkAccelMap_noinc(val) : &PL_sv_undef)
  3079. #endif /* GTK_TYPE_ACCEL_MAP */
  3080.  
  3081. #ifdef GDK_TYPE_OWNER_CHANGE
  3082.   /* GEnum GdkOwnerChange */
  3083. # define SvGdkOwnerChange(sv)    ((GdkOwnerChange)gperl_convert_enum (GDK_TYPE_OWNER_CHANGE, sv))
  3084. # define newSVGdkOwnerChange(val)    (gperl_convert_back_enum (GDK_TYPE_OWNER_CHANGE, val))
  3085. #endif /* GDK_TYPE_OWNER_CHANGE */
  3086.  
  3087. #ifdef GDK_TYPE_PIXBUF_ROTATION
  3088.   /* GEnum GdkPixbufRotation */
  3089. # define SvGdkPixbufRotation(sv)    ((GdkPixbufRotation)gperl_convert_enum (GDK_TYPE_PIXBUF_ROTATION, sv))
  3090. # define newSVGdkPixbufRotation(val)    (gperl_convert_back_enum (GDK_TYPE_PIXBUF_ROTATION, val))
  3091. #endif /* GDK_TYPE_PIXBUF_ROTATION */
  3092.  
  3093. #ifdef GTK_TYPE_ABOUT_DIALOG
  3094.   /* GtkObject derivative GtkAboutDialog */
  3095. # define SvGtkAboutDialog(sv)    ((GtkAboutDialog*)gperl_get_object_check (sv, GTK_TYPE_ABOUT_DIALOG))
  3096. # define newSVGtkAboutDialog(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  3097.   typedef GtkAboutDialog GtkAboutDialog_ornull;
  3098. # define SvGtkAboutDialog_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkAboutDialog(sv) : NULL)
  3099. # define newSVGtkAboutDialog_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  3100. #endif /* GTK_TYPE_ABOUT_DIALOG */
  3101.  
  3102. #ifdef GTK_TYPE_CELL_RENDERER_COMBO
  3103.   /* GtkObject derivative GtkCellRendererCombo */
  3104. # define SvGtkCellRendererCombo(sv)    ((GtkCellRendererCombo*)gperl_get_object_check (sv, GTK_TYPE_CELL_RENDERER_COMBO))
  3105. # define newSVGtkCellRendererCombo(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  3106.   typedef GtkCellRendererCombo GtkCellRendererCombo_ornull;
  3107. # define SvGtkCellRendererCombo_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkCellRendererCombo(sv) : NULL)
  3108. # define newSVGtkCellRendererCombo_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  3109. #endif /* GTK_TYPE_CELL_RENDERER_COMBO */
  3110.  
  3111. #ifdef GTK_TYPE_CELL_RENDERER_PROGRESS
  3112.   /* GtkObject derivative GtkCellRendererProgress */
  3113. # define SvGtkCellRendererProgress(sv)    ((GtkCellRendererProgress*)gperl_get_object_check (sv, GTK_TYPE_CELL_RENDERER_PROGRESS))
  3114. # define newSVGtkCellRendererProgress(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  3115.   typedef GtkCellRendererProgress GtkCellRendererProgress_ornull;
  3116. # define SvGtkCellRendererProgress_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkCellRendererProgress(sv) : NULL)
  3117. # define newSVGtkCellRendererProgress_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  3118. #endif /* GTK_TYPE_CELL_RENDERER_PROGRESS */
  3119.  
  3120. #ifdef GTK_TYPE_CELL_VIEW
  3121.   /* GtkObject derivative GtkCellView */
  3122. # define SvGtkCellView(sv)    ((GtkCellView*)gperl_get_object_check (sv, GTK_TYPE_CELL_VIEW))
  3123. # define newSVGtkCellView(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  3124.   typedef GtkCellView GtkCellView_ornull;
  3125. # define SvGtkCellView_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkCellView(sv) : NULL)
  3126. # define newSVGtkCellView_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  3127. #endif /* GTK_TYPE_CELL_VIEW */
  3128.  
  3129. #ifdef GTK_TYPE_FILE_CHOOSER_BUTTON
  3130.   /* GtkObject derivative GtkFileChooserButton */
  3131. # define SvGtkFileChooserButton(sv)    ((GtkFileChooserButton*)gperl_get_object_check (sv, GTK_TYPE_FILE_CHOOSER_BUTTON))
  3132. # define newSVGtkFileChooserButton(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  3133.   typedef GtkFileChooserButton GtkFileChooserButton_ornull;
  3134. # define SvGtkFileChooserButton_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkFileChooserButton(sv) : NULL)
  3135. # define newSVGtkFileChooserButton_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  3136. #endif /* GTK_TYPE_FILE_CHOOSER_BUTTON */
  3137.  
  3138. #ifdef GTK_TYPE_ICON_VIEW
  3139.   /* GtkObject derivative GtkIconView */
  3140. # define SvGtkIconView(sv)    ((GtkIconView*)gperl_get_object_check (sv, GTK_TYPE_ICON_VIEW))
  3141. # define newSVGtkIconView(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  3142.   typedef GtkIconView GtkIconView_ornull;
  3143. # define SvGtkIconView_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkIconView(sv) : NULL)
  3144. # define newSVGtkIconView_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  3145. #endif /* GTK_TYPE_ICON_VIEW */
  3146.  
  3147. #ifdef GTK_TYPE_MENU_TOOL_BUTTON
  3148.   /* GtkObject derivative GtkMenuToolButton */
  3149. # define SvGtkMenuToolButton(sv)    ((GtkMenuToolButton*)gperl_get_object_check (sv, GTK_TYPE_MENU_TOOL_BUTTON))
  3150. # define newSVGtkMenuToolButton(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  3151.   typedef GtkMenuToolButton GtkMenuToolButton_ornull;
  3152. # define SvGtkMenuToolButton_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGtkMenuToolButton(sv) : NULL)
  3153. # define newSVGtkMenuToolButton_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  3154. #endif /* GTK_TYPE_MENU_TOOL_BUTTON */
  3155.  
  3156. #ifdef GDK_TYPE_PANGO_RENDERER
  3157.   /* GObject derivative GdkPangoRenderer */
  3158. # define SvGdkPangoRenderer(sv)    ((GdkPangoRenderer*)gperl_get_object_check (sv, GDK_TYPE_PANGO_RENDERER))
  3159. # define newSVGdkPangoRenderer(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  3160.   typedef GdkPangoRenderer GdkPangoRenderer_ornull;
  3161. # define SvGdkPangoRenderer_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGdkPangoRenderer(sv) : NULL)
  3162. # define newSVGdkPangoRenderer_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  3163. typedef GdkPangoRenderer GdkPangoRenderer_noinc;
  3164. #define newSVGdkPangoRenderer_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  3165. typedef GdkPangoRenderer GdkPangoRenderer_noinc_ornull;
  3166. #define newSVGdkPangoRenderer_noinc_ornull(val)    ((val) ? newSVGdkPangoRenderer_noinc(val) : &PL_sv_undef)
  3167. #endif /* GDK_TYPE_PANGO_RENDERER */
  3168.  
  3169. #ifdef GTK_TYPE_PACK_DIRECTION
  3170.   /* GEnum GtkPackDirection */
  3171. # define SvGtkPackDirection(sv)    ((GtkPackDirection)gperl_convert_enum (GTK_TYPE_PACK_DIRECTION, sv))
  3172. # define newSVGtkPackDirection(val)    (gperl_convert_back_enum (GTK_TYPE_PACK_DIRECTION, val))
  3173. #endif /* GTK_TYPE_PACK_DIRECTION */
  3174.  
  3175. #ifdef GTK_TYPE_ICON_VIEW_DROP_POSITION
  3176.   /* GEnum GtkIconViewDropPosition */
  3177. # define SvGtkIconViewDropPosition(sv)    ((GtkIconViewDropPosition)gperl_convert_enum (GTK_TYPE_ICON_VIEW_DROP_POSITION, sv))
  3178. # define newSVGtkIconViewDropPosition(val)    (gperl_convert_back_enum (GTK_TYPE_ICON_VIEW_DROP_POSITION, val))
  3179. #endif /* GTK_TYPE_ICON_VIEW_DROP_POSITION */
  3180.  
  3181. #ifdef GDK_TYPE_PIXBUF_SIMPLE_ANIM
  3182.   /* GObject derivative GdkPixbufSimpleAnim */
  3183. # define SvGdkPixbufSimpleAnim(sv)    ((GdkPixbufSimpleAnim*)gperl_get_object_check (sv, GDK_TYPE_PIXBUF_SIMPLE_ANIM))
  3184. # define newSVGdkPixbufSimpleAnim(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  3185.   typedef GdkPixbufSimpleAnim GdkPixbufSimpleAnim_ornull;
  3186. # define SvGdkPixbufSimpleAnim_ornull(sv)    (gperl_sv_is_defined (sv) ? SvGdkPixbufSimpleAnim(sv) : NULL)
  3187. # define newSVGdkPixbufSimpleAnim_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  3188. typedef GdkPixbufSimpleAnim GdkPixbufSimpleAnim_noinc;
  3189. #define newSVGdkPixbufSimpleAnim_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  3190. typedef GdkPixbufSimpleAnim GdkPixbufSimpleAnim_noinc_ornull;
  3191. #define newSVGdkPixbufSimpleAnim_noinc_ornull(val)    ((val) ? newSVGdkPixbufSimpleAnim_noinc(val) : &PL_sv_undef)
  3192. #endif /* GDK_TYPE_PIXBUF_SIMPLE_ANIM */
  3193.  
  3194. #ifdef PANGO_TYPE_ALIGNMENT
  3195.   /* GEnum PangoAlignment */
  3196. # define SvPangoAlignment(sv)    ((PangoAlignment)gperl_convert_enum (PANGO_TYPE_ALIGNMENT, sv))
  3197. # define newSVPangoAlignment(val)    (gperl_convert_back_enum (PANGO_TYPE_ALIGNMENT, val))
  3198. #endif /* PANGO_TYPE_ALIGNMENT */
  3199.  
  3200. #ifdef PANGO_TYPE_ATTR_LIST
  3201.   /* GBoxed PangoAttrList */
  3202.   typedef PangoAttrList PangoAttrList_ornull;
  3203. # define SvPangoAttrList(sv)    ((PangoAttrList *) gperl_get_boxed_check ((sv), PANGO_TYPE_ATTR_LIST))
  3204. # define SvPangoAttrList_ornull(sv)    (gperl_sv_is_defined (sv) ? SvPangoAttrList (sv) : NULL)
  3205.   typedef PangoAttrList PangoAttrList_own;
  3206.   typedef PangoAttrList PangoAttrList_copy;
  3207.   typedef PangoAttrList PangoAttrList_own_ornull;
  3208. # define newSVPangoAttrList(val)    (gperl_new_boxed ((gpointer) (val), PANGO_TYPE_ATTR_LIST, FALSE))
  3209. # define newSVPangoAttrList_ornull(val)    ((val) ? newSVPangoAttrList(val) : &PL_sv_undef)
  3210. # define newSVPangoAttrList_own(val)    (gperl_new_boxed ((gpointer) (val), PANGO_TYPE_ATTR_LIST, TRUE))
  3211. # define newSVPangoAttrList_copy(val)    (gperl_new_boxed_copy ((gpointer) (val), PANGO_TYPE_ATTR_LIST))
  3212. # define newSVPangoAttrList_own_ornull(val)    ((val) ? newSVPangoAttrList_own(val) : &PL_sv_undef)
  3213. #endif /* PANGO_TYPE_ATTR_LIST */
  3214.  
  3215. #ifdef PANGO_TYPE_ATTR_TYPE
  3216.   /* GEnum PangoAttrType */
  3217. # define SvPangoAttrType(sv)    ((PangoAttrType)gperl_convert_enum (PANGO_TYPE_ATTR_TYPE, sv))
  3218. # define newSVPangoAttrType(val)    (gperl_convert_back_enum (PANGO_TYPE_ATTR_TYPE, val))
  3219. #endif /* PANGO_TYPE_ATTR_TYPE */
  3220.  
  3221. #ifdef PANGO_TYPE_COLOR
  3222.   /* GBoxed PangoColor */
  3223.   typedef PangoColor PangoColor_ornull;
  3224. # define SvPangoColor(sv)    ((PangoColor *) gperl_get_boxed_check ((sv), PANGO_TYPE_COLOR))
  3225. # define SvPangoColor_ornull(sv)    (gperl_sv_is_defined (sv) ? SvPangoColor (sv) : NULL)
  3226.   typedef PangoColor PangoColor_own;
  3227.   typedef PangoColor PangoColor_copy;
  3228.   typedef PangoColor PangoColor_own_ornull;
  3229. # define newSVPangoColor(val)    (gperl_new_boxed ((gpointer) (val), PANGO_TYPE_COLOR, FALSE))
  3230. # define newSVPangoColor_ornull(val)    ((val) ? newSVPangoColor(val) : &PL_sv_undef)
  3231. # define newSVPangoColor_own(val)    (gperl_new_boxed ((gpointer) (val), PANGO_TYPE_COLOR, TRUE))
  3232. # define newSVPangoColor_copy(val)    (gperl_new_boxed_copy ((gpointer) (val), PANGO_TYPE_COLOR))
  3233. # define newSVPangoColor_own_ornull(val)    ((val) ? newSVPangoColor_own(val) : &PL_sv_undef)
  3234. #endif /* PANGO_TYPE_COLOR */
  3235.  
  3236. #ifdef PANGO_TYPE_CONTEXT
  3237.   /* GObject derivative PangoContext */
  3238. # define SvPangoContext(sv)    ((PangoContext*)gperl_get_object_check (sv, PANGO_TYPE_CONTEXT))
  3239. # define newSVPangoContext(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  3240.   typedef PangoContext PangoContext_ornull;
  3241. # define SvPangoContext_ornull(sv)    (gperl_sv_is_defined (sv) ? SvPangoContext(sv) : NULL)
  3242. # define newSVPangoContext_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  3243. typedef PangoContext PangoContext_noinc;
  3244. #define newSVPangoContext_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  3245. typedef PangoContext PangoContext_noinc_ornull;
  3246. #define newSVPangoContext_noinc_ornull(val)    ((val) ? newSVPangoContext_noinc(val) : &PL_sv_undef)
  3247. #endif /* PANGO_TYPE_CONTEXT */
  3248.  
  3249. #ifdef PANGO_TYPE_COVERAGE_LEVEL
  3250.   /* GEnum PangoCoverageLevel */
  3251. # define SvPangoCoverageLevel(sv)    ((PangoCoverageLevel)gperl_convert_enum (PANGO_TYPE_COVERAGE_LEVEL, sv))
  3252. # define newSVPangoCoverageLevel(val)    (gperl_convert_back_enum (PANGO_TYPE_COVERAGE_LEVEL, val))
  3253. #endif /* PANGO_TYPE_COVERAGE_LEVEL */
  3254.  
  3255. #ifdef PANGO_TYPE_DIRECTION
  3256.   /* GEnum PangoDirection */
  3257. # define SvPangoDirection(sv)    ((PangoDirection)gperl_convert_enum (PANGO_TYPE_DIRECTION, sv))
  3258. # define newSVPangoDirection(val)    (gperl_convert_back_enum (PANGO_TYPE_DIRECTION, val))
  3259. #endif /* PANGO_TYPE_DIRECTION */
  3260.  
  3261. #ifdef PANGO_TYPE_FONT_DESCRIPTION
  3262.   /* GBoxed PangoFontDescription */
  3263.   typedef PangoFontDescription PangoFontDescription_ornull;
  3264. # define SvPangoFontDescription(sv)    ((PangoFontDescription *) gperl_get_boxed_check ((sv), PANGO_TYPE_FONT_DESCRIPTION))
  3265. # define SvPangoFontDescription_ornull(sv)    (gperl_sv_is_defined (sv) ? SvPangoFontDescription (sv) : NULL)
  3266.   typedef PangoFontDescription PangoFontDescription_own;
  3267.   typedef PangoFontDescription PangoFontDescription_copy;
  3268.   typedef PangoFontDescription PangoFontDescription_own_ornull;
  3269. # define newSVPangoFontDescription(val)    (gperl_new_boxed ((gpointer) (val), PANGO_TYPE_FONT_DESCRIPTION, FALSE))
  3270. # define newSVPangoFontDescription_ornull(val)    ((val) ? newSVPangoFontDescription(val) : &PL_sv_undef)
  3271. # define newSVPangoFontDescription_own(val)    (gperl_new_boxed ((gpointer) (val), PANGO_TYPE_FONT_DESCRIPTION, TRUE))
  3272. # define newSVPangoFontDescription_copy(val)    (gperl_new_boxed_copy ((gpointer) (val), PANGO_TYPE_FONT_DESCRIPTION))
  3273. # define newSVPangoFontDescription_own_ornull(val)    ((val) ? newSVPangoFontDescription_own(val) : &PL_sv_undef)
  3274. #endif /* PANGO_TYPE_FONT_DESCRIPTION */
  3275.  
  3276. #ifdef PANGO_TYPE_FONT_FACE
  3277.   /* GObject derivative PangoFontFace */
  3278. # define SvPangoFontFace(sv)    ((PangoFontFace*)gperl_get_object_check (sv, PANGO_TYPE_FONT_FACE))
  3279. # define newSVPangoFontFace(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  3280.   typedef PangoFontFace PangoFontFace_ornull;
  3281. # define SvPangoFontFace_ornull(sv)    (gperl_sv_is_defined (sv) ? SvPangoFontFace(sv) : NULL)
  3282. # define newSVPangoFontFace_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  3283. typedef PangoFontFace PangoFontFace_noinc;
  3284. #define newSVPangoFontFace_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  3285. typedef PangoFontFace PangoFontFace_noinc_ornull;
  3286. #define newSVPangoFontFace_noinc_ornull(val)    ((val) ? newSVPangoFontFace_noinc(val) : &PL_sv_undef)
  3287. #endif /* PANGO_TYPE_FONT_FACE */
  3288.  
  3289. #ifdef PANGO_TYPE_FONT_FAMILY
  3290.   /* GObject derivative PangoFontFamily */
  3291. # define SvPangoFontFamily(sv)    ((PangoFontFamily*)gperl_get_object_check (sv, PANGO_TYPE_FONT_FAMILY))
  3292. # define newSVPangoFontFamily(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  3293.   typedef PangoFontFamily PangoFontFamily_ornull;
  3294. # define SvPangoFontFamily_ornull(sv)    (gperl_sv_is_defined (sv) ? SvPangoFontFamily(sv) : NULL)
  3295. # define newSVPangoFontFamily_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  3296. typedef PangoFontFamily PangoFontFamily_noinc;
  3297. #define newSVPangoFontFamily_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  3298. typedef PangoFontFamily PangoFontFamily_noinc_ornull;
  3299. #define newSVPangoFontFamily_noinc_ornull(val)    ((val) ? newSVPangoFontFamily_noinc(val) : &PL_sv_undef)
  3300. #endif /* PANGO_TYPE_FONT_FAMILY */
  3301.  
  3302. #ifdef PANGO_TYPE_FONT_MAP
  3303.   /* GObject derivative PangoFontMap */
  3304. # define SvPangoFontMap(sv)    ((PangoFontMap*)gperl_get_object_check (sv, PANGO_TYPE_FONT_MAP))
  3305. # define newSVPangoFontMap(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  3306.   typedef PangoFontMap PangoFontMap_ornull;
  3307. # define SvPangoFontMap_ornull(sv)    (gperl_sv_is_defined (sv) ? SvPangoFontMap(sv) : NULL)
  3308. # define newSVPangoFontMap_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  3309. typedef PangoFontMap PangoFontMap_noinc;
  3310. #define newSVPangoFontMap_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  3311. typedef PangoFontMap PangoFontMap_noinc_ornull;
  3312. #define newSVPangoFontMap_noinc_ornull(val)    ((val) ? newSVPangoFontMap_noinc(val) : &PL_sv_undef)
  3313. #endif /* PANGO_TYPE_FONT_MAP */
  3314.  
  3315. #ifdef PANGO_TYPE_FONT_MASK
  3316.   /* GFlags PangoFontMask */
  3317. # define SvPangoFontMask(sv)    ((PangoFontMask)gperl_convert_flags (PANGO_TYPE_FONT_MASK, sv))
  3318. # define newSVPangoFontMask(val)    (gperl_convert_back_flags (PANGO_TYPE_FONT_MASK, val))
  3319. #endif /* PANGO_TYPE_FONT_MASK */
  3320.  
  3321. #ifdef PANGO_TYPE_FONT_METRICS
  3322.   /* GBoxed PangoFontMetrics */
  3323.   typedef PangoFontMetrics PangoFontMetrics_ornull;
  3324. # define SvPangoFontMetrics(sv)    ((PangoFontMetrics *) gperl_get_boxed_check ((sv), PANGO_TYPE_FONT_METRICS))
  3325. # define SvPangoFontMetrics_ornull(sv)    (gperl_sv_is_defined (sv) ? SvPangoFontMetrics (sv) : NULL)
  3326.   typedef PangoFontMetrics PangoFontMetrics_own;
  3327.   typedef PangoFontMetrics PangoFontMetrics_copy;
  3328.   typedef PangoFontMetrics PangoFontMetrics_own_ornull;
  3329. # define newSVPangoFontMetrics(val)    (gperl_new_boxed ((gpointer) (val), PANGO_TYPE_FONT_METRICS, FALSE))
  3330. # define newSVPangoFontMetrics_ornull(val)    ((val) ? newSVPangoFontMetrics(val) : &PL_sv_undef)
  3331. # define newSVPangoFontMetrics_own(val)    (gperl_new_boxed ((gpointer) (val), PANGO_TYPE_FONT_METRICS, TRUE))
  3332. # define newSVPangoFontMetrics_copy(val)    (gperl_new_boxed_copy ((gpointer) (val), PANGO_TYPE_FONT_METRICS))
  3333. # define newSVPangoFontMetrics_own_ornull(val)    ((val) ? newSVPangoFontMetrics_own(val) : &PL_sv_undef)
  3334. #endif /* PANGO_TYPE_FONT_METRICS */
  3335.  
  3336. #ifdef PANGO_TYPE_FONT
  3337.   /* GObject derivative PangoFont */
  3338. # define SvPangoFont(sv)    ((PangoFont*)gperl_get_object_check (sv, PANGO_TYPE_FONT))
  3339. # define newSVPangoFont(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  3340.   typedef PangoFont PangoFont_ornull;
  3341. # define SvPangoFont_ornull(sv)    (gperl_sv_is_defined (sv) ? SvPangoFont(sv) : NULL)
  3342. # define newSVPangoFont_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  3343. typedef PangoFont PangoFont_noinc;
  3344. #define newSVPangoFont_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  3345. typedef PangoFont PangoFont_noinc_ornull;
  3346. #define newSVPangoFont_noinc_ornull(val)    ((val) ? newSVPangoFont_noinc(val) : &PL_sv_undef)
  3347. #endif /* PANGO_TYPE_FONT */
  3348.  
  3349. #ifdef PANGO_TYPE_FONTSET
  3350.   /* GObject derivative PangoFontset */
  3351. # define SvPangoFontset(sv)    ((PangoFontset*)gperl_get_object_check (sv, PANGO_TYPE_FONTSET))
  3352. # define newSVPangoFontset(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  3353.   typedef PangoFontset PangoFontset_ornull;
  3354. # define SvPangoFontset_ornull(sv)    (gperl_sv_is_defined (sv) ? SvPangoFontset(sv) : NULL)
  3355. # define newSVPangoFontset_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  3356. typedef PangoFontset PangoFontset_noinc;
  3357. #define newSVPangoFontset_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  3358. typedef PangoFontset PangoFontset_noinc_ornull;
  3359. #define newSVPangoFontset_noinc_ornull(val)    ((val) ? newSVPangoFontset_noinc(val) : &PL_sv_undef)
  3360. #endif /* PANGO_TYPE_FONTSET */
  3361.  
  3362. #ifdef PANGO_TYPE_GLYPH_STRING
  3363.   /* GBoxed PangoGlyphString */
  3364.   typedef PangoGlyphString PangoGlyphString_ornull;
  3365. # define SvPangoGlyphString(sv)    ((PangoGlyphString *) gperl_get_boxed_check ((sv), PANGO_TYPE_GLYPH_STRING))
  3366. # define SvPangoGlyphString_ornull(sv)    (gperl_sv_is_defined (sv) ? SvPangoGlyphString (sv) : NULL)
  3367.   typedef PangoGlyphString PangoGlyphString_own;
  3368.   typedef PangoGlyphString PangoGlyphString_copy;
  3369.   typedef PangoGlyphString PangoGlyphString_own_ornull;
  3370. # define newSVPangoGlyphString(val)    (gperl_new_boxed ((gpointer) (val), PANGO_TYPE_GLYPH_STRING, FALSE))
  3371. # define newSVPangoGlyphString_ornull(val)    ((val) ? newSVPangoGlyphString(val) : &PL_sv_undef)
  3372. # define newSVPangoGlyphString_own(val)    (gperl_new_boxed ((gpointer) (val), PANGO_TYPE_GLYPH_STRING, TRUE))
  3373. # define newSVPangoGlyphString_copy(val)    (gperl_new_boxed_copy ((gpointer) (val), PANGO_TYPE_GLYPH_STRING))
  3374. # define newSVPangoGlyphString_own_ornull(val)    ((val) ? newSVPangoGlyphString_own(val) : &PL_sv_undef)
  3375. #endif /* PANGO_TYPE_GLYPH_STRING */
  3376.  
  3377. #ifdef PANGO_TYPE_LANGUAGE
  3378.   /* GBoxed PangoLanguage */
  3379.   typedef PangoLanguage PangoLanguage_ornull;
  3380. # define SvPangoLanguage(sv)    ((PangoLanguage *) gperl_get_boxed_check ((sv), PANGO_TYPE_LANGUAGE))
  3381. # define SvPangoLanguage_ornull(sv)    (gperl_sv_is_defined (sv) ? SvPangoLanguage (sv) : NULL)
  3382.   typedef PangoLanguage PangoLanguage_own;
  3383.   typedef PangoLanguage PangoLanguage_copy;
  3384.   typedef PangoLanguage PangoLanguage_own_ornull;
  3385. # define newSVPangoLanguage(val)    (gperl_new_boxed ((gpointer) (val), PANGO_TYPE_LANGUAGE, FALSE))
  3386. # define newSVPangoLanguage_ornull(val)    ((val) ? newSVPangoLanguage(val) : &PL_sv_undef)
  3387. # define newSVPangoLanguage_own(val)    (gperl_new_boxed ((gpointer) (val), PANGO_TYPE_LANGUAGE, TRUE))
  3388. # define newSVPangoLanguage_copy(val)    (gperl_new_boxed_copy ((gpointer) (val), PANGO_TYPE_LANGUAGE))
  3389. # define newSVPangoLanguage_own_ornull(val)    ((val) ? newSVPangoLanguage_own(val) : &PL_sv_undef)
  3390. #endif /* PANGO_TYPE_LANGUAGE */
  3391.  
  3392. #ifdef PANGO_TYPE_LAYOUT
  3393.   /* GObject derivative PangoLayout */
  3394. # define SvPangoLayout(sv)    ((PangoLayout*)gperl_get_object_check (sv, PANGO_TYPE_LAYOUT))
  3395. # define newSVPangoLayout(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  3396.   typedef PangoLayout PangoLayout_ornull;
  3397. # define SvPangoLayout_ornull(sv)    (gperl_sv_is_defined (sv) ? SvPangoLayout(sv) : NULL)
  3398. # define newSVPangoLayout_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  3399. typedef PangoLayout PangoLayout_noinc;
  3400. #define newSVPangoLayout_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  3401. typedef PangoLayout PangoLayout_noinc_ornull;
  3402. #define newSVPangoLayout_noinc_ornull(val)    ((val) ? newSVPangoLayout_noinc(val) : &PL_sv_undef)
  3403. #endif /* PANGO_TYPE_LAYOUT */
  3404.  
  3405. #ifdef PANGO_TYPE_SCRIPT
  3406.   /* GEnum PangoScript */
  3407. # define SvPangoScript(sv)    ((PangoScript)gperl_convert_enum (PANGO_TYPE_SCRIPT, sv))
  3408. # define newSVPangoScript(val)    (gperl_convert_back_enum (PANGO_TYPE_SCRIPT, val))
  3409. #endif /* PANGO_TYPE_SCRIPT */
  3410.  
  3411. #ifdef PANGO_TYPE_STRETCH
  3412.   /* GEnum PangoStretch */
  3413. # define SvPangoStretch(sv)    ((PangoStretch)gperl_convert_enum (PANGO_TYPE_STRETCH, sv))
  3414. # define newSVPangoStretch(val)    (gperl_convert_back_enum (PANGO_TYPE_STRETCH, val))
  3415. #endif /* PANGO_TYPE_STRETCH */
  3416.  
  3417. #ifdef PANGO_TYPE_STYLE
  3418.   /* GEnum PangoStyle */
  3419. # define SvPangoStyle(sv)    ((PangoStyle)gperl_convert_enum (PANGO_TYPE_STYLE, sv))
  3420. # define newSVPangoStyle(val)    (gperl_convert_back_enum (PANGO_TYPE_STYLE, val))
  3421. #endif /* PANGO_TYPE_STYLE */
  3422.  
  3423. #ifdef PANGO_TYPE_TAB_ALIGN
  3424.   /* GEnum PangoTabAlign */
  3425. # define SvPangoTabAlign(sv)    ((PangoTabAlign)gperl_convert_enum (PANGO_TYPE_TAB_ALIGN, sv))
  3426. # define newSVPangoTabAlign(val)    (gperl_convert_back_enum (PANGO_TYPE_TAB_ALIGN, val))
  3427. #endif /* PANGO_TYPE_TAB_ALIGN */
  3428.  
  3429. #ifdef PANGO_TYPE_TAB_ARRAY
  3430.   /* GBoxed PangoTabArray */
  3431.   typedef PangoTabArray PangoTabArray_ornull;
  3432. # define SvPangoTabArray(sv)    ((PangoTabArray *) gperl_get_boxed_check ((sv), PANGO_TYPE_TAB_ARRAY))
  3433. # define SvPangoTabArray_ornull(sv)    (gperl_sv_is_defined (sv) ? SvPangoTabArray (sv) : NULL)
  3434.   typedef PangoTabArray PangoTabArray_own;
  3435.   typedef PangoTabArray PangoTabArray_copy;
  3436.   typedef PangoTabArray PangoTabArray_own_ornull;
  3437. # define newSVPangoTabArray(val)    (gperl_new_boxed ((gpointer) (val), PANGO_TYPE_TAB_ARRAY, FALSE))
  3438. # define newSVPangoTabArray_ornull(val)    ((val) ? newSVPangoTabArray(val) : &PL_sv_undef)
  3439. # define newSVPangoTabArray_own(val)    (gperl_new_boxed ((gpointer) (val), PANGO_TYPE_TAB_ARRAY, TRUE))
  3440. # define newSVPangoTabArray_copy(val)    (gperl_new_boxed_copy ((gpointer) (val), PANGO_TYPE_TAB_ARRAY))
  3441. # define newSVPangoTabArray_own_ornull(val)    ((val) ? newSVPangoTabArray_own(val) : &PL_sv_undef)
  3442. #endif /* PANGO_TYPE_TAB_ARRAY */
  3443.  
  3444. #ifdef PANGO_TYPE_UNDERLINE
  3445.   /* GEnum PangoUnderline */
  3446. # define SvPangoUnderline(sv)    ((PangoUnderline)gperl_convert_enum (PANGO_TYPE_UNDERLINE, sv))
  3447. # define newSVPangoUnderline(val)    (gperl_convert_back_enum (PANGO_TYPE_UNDERLINE, val))
  3448. #endif /* PANGO_TYPE_UNDERLINE */
  3449.  
  3450. #ifdef PANGO_TYPE_VARIANT
  3451.   /* GEnum PangoVariant */
  3452. # define SvPangoVariant(sv)    ((PangoVariant)gperl_convert_enum (PANGO_TYPE_VARIANT, sv))
  3453. # define newSVPangoVariant(val)    (gperl_convert_back_enum (PANGO_TYPE_VARIANT, val))
  3454. #endif /* PANGO_TYPE_VARIANT */
  3455.  
  3456. #ifdef PANGO_TYPE_WEIGHT
  3457.   /* GEnum PangoWeight */
  3458. # define SvPangoWeight(sv)    ((PangoWeight)gperl_convert_enum (PANGO_TYPE_WEIGHT, sv))
  3459. # define newSVPangoWeight(val)    (gperl_convert_back_enum (PANGO_TYPE_WEIGHT, val))
  3460. #endif /* PANGO_TYPE_WEIGHT */
  3461.  
  3462. #ifdef PANGO_TYPE_WRAP_MODE
  3463.   /* GEnum PangoWrapMode */
  3464. # define SvPangoWrapMode(sv)    ((PangoWrapMode)gperl_convert_enum (PANGO_TYPE_WRAP_MODE, sv))
  3465. # define newSVPangoWrapMode(val)    (gperl_convert_back_enum (PANGO_TYPE_WRAP_MODE, val))
  3466. #endif /* PANGO_TYPE_WRAP_MODE */
  3467.  
  3468. #ifdef PANGO_TYPE_ATTRIBUTE
  3469.   /* GBoxed PangoAttribute */
  3470.   typedef PangoAttribute PangoAttribute_ornull;
  3471. # define SvPangoAttribute(sv)    ((PangoAttribute *) gperl_get_boxed_check ((sv), PANGO_TYPE_ATTRIBUTE))
  3472. # define SvPangoAttribute_ornull(sv)    (gperl_sv_is_defined (sv) ? SvPangoAttribute (sv) : NULL)
  3473.   typedef PangoAttribute PangoAttribute_own;
  3474.   typedef PangoAttribute PangoAttribute_copy;
  3475.   typedef PangoAttribute PangoAttribute_own_ornull;
  3476. # define newSVPangoAttribute(val)    (gperl_new_boxed ((gpointer) (val), PANGO_TYPE_ATTRIBUTE, FALSE))
  3477. # define newSVPangoAttribute_ornull(val)    ((val) ? newSVPangoAttribute(val) : &PL_sv_undef)
  3478. # define newSVPangoAttribute_own(val)    (gperl_new_boxed ((gpointer) (val), PANGO_TYPE_ATTRIBUTE, TRUE))
  3479. # define newSVPangoAttribute_copy(val)    (gperl_new_boxed_copy ((gpointer) (val), PANGO_TYPE_ATTRIBUTE))
  3480. # define newSVPangoAttribute_own_ornull(val)    ((val) ? newSVPangoAttribute_own(val) : &PL_sv_undef)
  3481. #endif /* PANGO_TYPE_ATTRIBUTE */
  3482.  
  3483. #ifdef PANGO_TYPE_ATTR_ITERATOR
  3484.   /* GBoxed PangoAttrIterator */
  3485.   typedef PangoAttrIterator PangoAttrIterator_ornull;
  3486. # define SvPangoAttrIterator(sv)    ((PangoAttrIterator *) gperl_get_boxed_check ((sv), PANGO_TYPE_ATTR_ITERATOR))
  3487. # define SvPangoAttrIterator_ornull(sv)    (gperl_sv_is_defined (sv) ? SvPangoAttrIterator (sv) : NULL)
  3488.   typedef PangoAttrIterator PangoAttrIterator_own;
  3489.   typedef PangoAttrIterator PangoAttrIterator_copy;
  3490.   typedef PangoAttrIterator PangoAttrIterator_own_ornull;
  3491. # define newSVPangoAttrIterator(val)    (gperl_new_boxed ((gpointer) (val), PANGO_TYPE_ATTR_ITERATOR, FALSE))
  3492. # define newSVPangoAttrIterator_ornull(val)    ((val) ? newSVPangoAttrIterator(val) : &PL_sv_undef)
  3493. # define newSVPangoAttrIterator_own(val)    (gperl_new_boxed ((gpointer) (val), PANGO_TYPE_ATTR_ITERATOR, TRUE))
  3494. # define newSVPangoAttrIterator_copy(val)    (gperl_new_boxed_copy ((gpointer) (val), PANGO_TYPE_ATTR_ITERATOR))
  3495. # define newSVPangoAttrIterator_own_ornull(val)    ((val) ? newSVPangoAttrIterator_own(val) : &PL_sv_undef)
  3496. #endif /* PANGO_TYPE_ATTR_ITERATOR */
  3497.  
  3498. #ifdef PANGO_TYPE_LAYOUT_ITER
  3499.   /* GBoxed PangoLayoutIter */
  3500.   typedef PangoLayoutIter PangoLayoutIter_ornull;
  3501. # define SvPangoLayoutIter(sv)    ((PangoLayoutIter *) gperl_get_boxed_check ((sv), PANGO_TYPE_LAYOUT_ITER))
  3502. # define SvPangoLayoutIter_ornull(sv)    (gperl_sv_is_defined (sv) ? SvPangoLayoutIter (sv) : NULL)
  3503.   typedef PangoLayoutIter PangoLayoutIter_own;
  3504.   typedef PangoLayoutIter PangoLayoutIter_copy;
  3505.   typedef PangoLayoutIter PangoLayoutIter_own_ornull;
  3506. # define newSVPangoLayoutIter(val)    (gperl_new_boxed ((gpointer) (val), PANGO_TYPE_LAYOUT_ITER, FALSE))
  3507. # define newSVPangoLayoutIter_ornull(val)    ((val) ? newSVPangoLayoutIter(val) : &PL_sv_undef)
  3508. # define newSVPangoLayoutIter_own(val)    (gperl_new_boxed ((gpointer) (val), PANGO_TYPE_LAYOUT_ITER, TRUE))
  3509. # define newSVPangoLayoutIter_copy(val)    (gperl_new_boxed_copy ((gpointer) (val), PANGO_TYPE_LAYOUT_ITER))
  3510. # define newSVPangoLayoutIter_own_ornull(val)    ((val) ? newSVPangoLayoutIter_own(val) : &PL_sv_undef)
  3511. #endif /* PANGO_TYPE_LAYOUT_ITER */
  3512.  
  3513. #ifdef PANGO_TYPE_LAYOUT_LINE
  3514.   /* GBoxed PangoLayoutLine */
  3515.   typedef PangoLayoutLine PangoLayoutLine_ornull;
  3516. # define SvPangoLayoutLine(sv)    ((PangoLayoutLine *) gperl_get_boxed_check ((sv), PANGO_TYPE_LAYOUT_LINE))
  3517. # define SvPangoLayoutLine_ornull(sv)    (gperl_sv_is_defined (sv) ? SvPangoLayoutLine (sv) : NULL)
  3518.   typedef PangoLayoutLine PangoLayoutLine_own;
  3519.   typedef PangoLayoutLine PangoLayoutLine_copy;
  3520.   typedef PangoLayoutLine PangoLayoutLine_own_ornull;
  3521. # define newSVPangoLayoutLine(val)    (gperl_new_boxed ((gpointer) (val), PANGO_TYPE_LAYOUT_LINE, FALSE))
  3522. # define newSVPangoLayoutLine_ornull(val)    ((val) ? newSVPangoLayoutLine(val) : &PL_sv_undef)
  3523. # define newSVPangoLayoutLine_own(val)    (gperl_new_boxed ((gpointer) (val), PANGO_TYPE_LAYOUT_LINE, TRUE))
  3524. # define newSVPangoLayoutLine_copy(val)    (gperl_new_boxed_copy ((gpointer) (val), PANGO_TYPE_LAYOUT_LINE))
  3525. # define newSVPangoLayoutLine_own_ornull(val)    ((val) ? newSVPangoLayoutLine_own(val) : &PL_sv_undef)
  3526. #endif /* PANGO_TYPE_LAYOUT_LINE */
  3527.  
  3528. #ifdef PANGO_TYPE_CAIRO_FONT_MAP
  3529.   /* GInterface derivative PangoCairoFontMap */
  3530. # define SvPangoCairoFontMap(sv)    ((PangoCairoFontMap*)gperl_get_object_check (sv, PANGO_TYPE_CAIRO_FONT_MAP))
  3531. # define newSVPangoCairoFontMap(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  3532.   typedef PangoCairoFontMap PangoCairoFontMap_ornull;
  3533. # define SvPangoCairoFontMap_ornull(sv)    (gperl_sv_is_defined (sv) ? SvPangoCairoFontMap(sv) : NULL)
  3534. # define newSVPangoCairoFontMap_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  3535. #endif /* PANGO_TYPE_CAIRO_FONT_MAP */
  3536.  
  3537. #ifdef PANGO_TYPE_GRAVITY
  3538.   /* GEnum PangoGravity */
  3539. # define SvPangoGravity(sv)    ((PangoGravity)gperl_convert_enum (PANGO_TYPE_GRAVITY, sv))
  3540. # define newSVPangoGravity(val)    (gperl_convert_back_enum (PANGO_TYPE_GRAVITY, val))
  3541. #endif /* PANGO_TYPE_GRAVITY */
  3542.  
  3543. #ifdef PANGO_TYPE_GRAVITY_HINT
  3544.   /* GEnum PangoGravityHint */
  3545. # define SvPangoGravityHint(sv)    ((PangoGravityHint)gperl_convert_enum (PANGO_TYPE_GRAVITY_HINT, sv))
  3546. # define newSVPangoGravityHint(val)    (gperl_convert_back_enum (PANGO_TYPE_GRAVITY_HINT, val))
  3547. #endif /* PANGO_TYPE_GRAVITY_HINT */
  3548.  
  3549. #ifdef PANGO_TYPE_CAIRO_FONT
  3550.   /* GInterface derivative PangoCairoFont */
  3551. # define SvPangoCairoFont(sv)    ((PangoCairoFont*)gperl_get_object_check (sv, PANGO_TYPE_CAIRO_FONT))
  3552. # define newSVPangoCairoFont(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  3553.   typedef PangoCairoFont PangoCairoFont_ornull;
  3554. # define SvPangoCairoFont_ornull(sv)    (gperl_sv_is_defined (sv) ? SvPangoCairoFont(sv) : NULL)
  3555. # define newSVPangoCairoFont_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  3556. #endif /* PANGO_TYPE_CAIRO_FONT */
  3557.  
  3558. #ifdef PANGO_TYPE_SCRIPT_ITER
  3559.   /* GBoxed PangoScriptIter */
  3560.   typedef PangoScriptIter PangoScriptIter_ornull;
  3561. # define SvPangoScriptIter(sv)    ((PangoScriptIter *) gperl_get_boxed_check ((sv), PANGO_TYPE_SCRIPT_ITER))
  3562. # define SvPangoScriptIter_ornull(sv)    (gperl_sv_is_defined (sv) ? SvPangoScriptIter (sv) : NULL)
  3563.   typedef PangoScriptIter PangoScriptIter_own;
  3564.   typedef PangoScriptIter PangoScriptIter_copy;
  3565.   typedef PangoScriptIter PangoScriptIter_own_ornull;
  3566. # define newSVPangoScriptIter(val)    (gperl_new_boxed ((gpointer) (val), PANGO_TYPE_SCRIPT_ITER, FALSE))
  3567. # define newSVPangoScriptIter_ornull(val)    ((val) ? newSVPangoScriptIter(val) : &PL_sv_undef)
  3568. # define newSVPangoScriptIter_own(val)    (gperl_new_boxed ((gpointer) (val), PANGO_TYPE_SCRIPT_ITER, TRUE))
  3569. # define newSVPangoScriptIter_copy(val)    (gperl_new_boxed_copy ((gpointer) (val), PANGO_TYPE_SCRIPT_ITER))
  3570. # define newSVPangoScriptIter_own_ornull(val)    ((val) ? newSVPangoScriptIter_own(val) : &PL_sv_undef)
  3571. #endif /* PANGO_TYPE_SCRIPT_ITER */
  3572.  
  3573. #ifdef PANGO_TYPE_MATRIX
  3574.   /* GBoxed PangoMatrix */
  3575.   typedef PangoMatrix PangoMatrix_ornull;
  3576. # define SvPangoMatrix(sv)    ((PangoMatrix *) gperl_get_boxed_check ((sv), PANGO_TYPE_MATRIX))
  3577. # define SvPangoMatrix_ornull(sv)    (gperl_sv_is_defined (sv) ? SvPangoMatrix (sv) : NULL)
  3578.   typedef PangoMatrix PangoMatrix_own;
  3579.   typedef PangoMatrix PangoMatrix_copy;
  3580.   typedef PangoMatrix PangoMatrix_own_ornull;
  3581. # define newSVPangoMatrix(val)    (gperl_new_boxed ((gpointer) (val), PANGO_TYPE_MATRIX, FALSE))
  3582. # define newSVPangoMatrix_ornull(val)    ((val) ? newSVPangoMatrix(val) : &PL_sv_undef)
  3583. # define newSVPangoMatrix_own(val)    (gperl_new_boxed ((gpointer) (val), PANGO_TYPE_MATRIX, TRUE))
  3584. # define newSVPangoMatrix_copy(val)    (gperl_new_boxed_copy ((gpointer) (val), PANGO_TYPE_MATRIX))
  3585. # define newSVPangoMatrix_own_ornull(val)    ((val) ? newSVPangoMatrix_own(val) : &PL_sv_undef)
  3586. #endif /* PANGO_TYPE_MATRIX */
  3587.  
  3588. #ifdef PANGO_TYPE_ELLIPSIZE_MODE
  3589.   /* GEnum PangoEllipsizeMode */
  3590. # define SvPangoEllipsizeMode(sv)    ((PangoEllipsizeMode)gperl_convert_enum (PANGO_TYPE_ELLIPSIZE_MODE, sv))
  3591. # define newSVPangoEllipsizeMode(val)    (gperl_convert_back_enum (PANGO_TYPE_ELLIPSIZE_MODE, val))
  3592. #endif /* PANGO_TYPE_ELLIPSIZE_MODE */
  3593.  
  3594. #ifdef PANGO_TYPE_RENDERER
  3595.   /* GObject derivative PangoRenderer */
  3596. # define SvPangoRenderer(sv)    ((PangoRenderer*)gperl_get_object_check (sv, PANGO_TYPE_RENDERER))
  3597. # define newSVPangoRenderer(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  3598.   typedef PangoRenderer PangoRenderer_ornull;
  3599. # define SvPangoRenderer_ornull(sv)    (gperl_sv_is_defined (sv) ? SvPangoRenderer(sv) : NULL)
  3600. # define newSVPangoRenderer_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  3601. typedef PangoRenderer PangoRenderer_noinc;
  3602. #define newSVPangoRenderer_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  3603. typedef PangoRenderer PangoRenderer_noinc_ornull;
  3604. #define newSVPangoRenderer_noinc_ornull(val)    ((val) ? newSVPangoRenderer_noinc(val) : &PL_sv_undef)
  3605. #endif /* PANGO_TYPE_RENDERER */
  3606.  
  3607. #ifdef PANGO_TYPE_RENDER_PART
  3608.   /* GEnum PangoRenderPart */
  3609. # define SvPangoRenderPart(sv)    ((PangoRenderPart)gperl_convert_enum (PANGO_TYPE_RENDER_PART, sv))
  3610. # define newSVPangoRenderPart(val)    (gperl_convert_back_enum (PANGO_TYPE_RENDER_PART, val))
  3611. #endif /* PANGO_TYPE_RENDER_PART */
  3612.